ShowAllData in all workbooks and sheets

[Guest]

Hi

Code required to run ShowAllData on every sheet in every open workbook,
leaving filter buttons/arrows in place.

Something like:

With all Workbooks and all Sheets

If .FilterMode Then
.ShowAllData
End If
End With

TIA

--
Thank you

Regards
Aussie Bob C.
Using Windows XP Home + Office 2003 Pro

 

[RB Smissaert]

Sub test()

Dim wb As Workbook
Dim sh As Worksheet

On Error Resume Next

For Each wb In Application.Workbooks
For Each sh In wb.Worksheets
sh.ShowAllData
Next
Next

On Error GoTo 0

End Sub


RBS

 

[Guest]

Thanks RB

very much appreciated

Aussie Bob C.

Sub test()

Dim wb As Workbook
Dim sh As Worksheet

On Error Resume Next

For Each wb In Application.Workbooks
For Each sh In wb.Worksheets
sh.ShowAllData
Next
Next

On Error GoTo 0

End Sub


RBS