Hi,

This code goes through all the worksheets and if a sheet contains a table it
tells you how many there are.

Regards


Brian Roberts

Sub TestForPivotTables()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
If sh.PivotTables.Count 0 Then
MsgBox "Worksheet: " & sh.Name & " Pivot Count: " &
sh.PivotTables.Count
End If
Next sh


End Sub



"François" wrote:

Hello,
I need your help regarding the waqy Pivot Table are identified in Excel.
I would like to hide/unhide all sheets if they contains a Pivot Table.

Thanks for your time