Collapse all pivot tables in workbook using vba

[p4nny]

Hi,

I've recorded a macro to "collapse" a pivot table in a workbook.

" Range("B23").Select ActiveSheet.PivotTables("PivotTable6").PivotFields("Account no. & name Concat") _
.ShowDetail = False
Range("B22").Select
ActiveSheet.PivotTables("PivotTable6").PivotFields("Name").ShowDetail = False"




I would now like this applicable to all worksheets in the workbook with the exception of tab called - "MASTER".

Appreciate the help / guidance

Regards, Anthony