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


--
jb


"Mike H" wrote:

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

"gootroots" wrote:

Hi Mike

It's stalling on X when put into the body of other code. Not quite sure why.



"Mike H" wrote:

Hi,

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

Mike

"gootroots" wrote:

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

If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

Thanks