Remove filter in worksheets before running code
 

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

If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If

Thanks

Remove filter in worksheets before running code
 

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

Remove filter in worksheets before running code
 

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

Remove filter in worksheets before running code
 

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

Remove filter in worksheets before running code
 

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

Remove filter in worksheets before running code
 

John,

Good point, I never read that into the OP's response of 'stalling'

Mike

"john" wrote:

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

Remove filter in worksheets before running code
 

Mike,
No worries, been guilty of it myself and on many occasions!
--
jb


"Mike H" wrote:

John,

Good point, I never read that into the OP's response of 'stalling'

Mike

"john" wrote:

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