VBA to expand pivot table rows not working. Getting error Unable to get the ShowDetail property of the PivotItem class

Question

I have some VBA code which runs successfully in other excel spreadsheets. It expands row detail within a pivot table. I have just tried using it in a new spreadsheet however