MsgBox help please

mrowe · Apr 9th, 2002, 05:27 AM

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 · Apr 9th, 2002, 05:37 AM

Hi Matt

Try this:

Code:

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

Apr 9th, 2002, 05:37 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Matt Try this: Code: 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 9th, 2002, 05:27 AM	#1
mrowe Board Regular Join Date: Feb 2002 Posts: 232	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