Hi,
I would like to filter out blanks in column L on every worksheet except for the one called "Revisions", not sure why this doesn't work:

Sub UnFilterAll()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If Worksheet.Name = "Revisions" Then Next
WS.Cells.AutoFilter 12
Next
End Sub

any help is appreciated..

On Thursday, September 1, 2016 at 11:30:13 AM UTC-4, wrote:
Hi,
I would like to filter out blanks in column L on every worksheet except for the one called "Revisions", not sure why this doesn't work:

Sub UnFilterAll()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If Worksheet.Name = "Revisions" Then Next
WS.Cells.AutoFilter 12
Next
End Sub

any help is appreciated..

sorry...this is code to filter blanks
Sub FilterAll()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
WS.Cells.AutoFilter 12, "<"
Next
End Sub

Hi,

Am Thu, 1 Sep 2016 08:29:53 -0700 (PDT) schrieb :

Hi,
I would like to filter out blanks in column L on every worksheet except for the one called "Revisions", not sure why this doesn't work:

try:

Sub Test()
Dim wsh As Worksheet

For Each wsh In Worksheets
If wsh.Name < "Revision" Then
wsh.UsedRange.AutoFilter Field:=12, Criteria1:="*"
End If
Next
End Sub


Regards
Claus B.
--
Windows10
Office 2016

On Thursday, September 1, 2016 at 12:37:48 PM UTC-4, Claus Busch wrote:
Hi,

Am Thu, 1 Sep 2016 08:29:53 -0700 (PDT) schrieb :

Hi,
I would like to filter out blanks in column L on every worksheet except for the one called "Revisions", not sure why this doesn't work:

try:

Sub Test()
Dim wsh As Worksheet

For Each wsh In Worksheets
If wsh.Name < "Revision" Then
wsh.UsedRange.AutoFilter Field:=12, Criteria1:="*"
End If
Next
End Sub


Regards
Claus B.
--
Windows10
Office 2016

Thank you for your help!