MsgBox help please

[mrowe]

Hi,

I need to have a msg box pop up advising the user to make sure all auto filters have been cleared before looking at the total results when they click on the "Summary Data" tab.

Also, is there a way to have all auto filters in the entire workbook go back to "All"

Cheers
Matt

 

[Dave Hawley]

Hi Matt

Try this:

Sub GoAwayFilters()
Dim wsSheet As Worksheet

On Error Resume Next
    For Each wsSheet In ActiveWorkbook.Worksheets
            wsSheet.ShowAllData
    Next wsSheet
On Error GoTo 0

End Sub