Remove filter in worksheets before running code

  • Thread starter Thread starter gootroots
  • Start date Start date
G

gootroots

How do I include all sheets in a workbook when running the following:

If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

Thanks
 
Hi,

Sub Show_All()
For x = 1 To Worksheets.Count
If Sheets(x).FilterMode Then
Sheets(x).ShowAllData
End If
Next
End Sub

Mike
 
Hi,

I'm not sure what you mean. There's no need to alter the code at all simply
run it as I posted it and it will clear the filters an all sheets

Mike
 
Hi Mike,
You omitted Declaring X in your code & me thinks OP has Option Explicit
declared at top of module?
 
You are right John,
I have Option Explicit declared at top of module

What do I need to change now to make it work.
 
Hi,

This will cure it

Sub Show_All()
Dim X as Long
For x = 1 To Worksheets.Count
If Sheets(x).FilterMode Then
Sheets(x).ShowAllData
End If
Next
End Sub

Mike
 
Back
Top