Auto-Filter on multiple worksheets automatically via VBA
 

Hi,

I am trying to use VBA to select 4 worksheets and run an Autofilter in
Column H (column # 8) on each sheet.

Each sheet is labelled from Jobsheet 1 ... 4.

The Autofilter criteria is "ALL" or myDay1

myDay1 = variable which contains the first 2 letters of the day (ie. MO TU WE)

When I run this code, I get a runtime error 13. Can anyone tell what I am
doing wrong or a better way to write this code?

For daLoop = 1 To 4

jobStream = "Jobstream " & daLoop
MsgBox jobStream

Sheets(jobStream).Select
Selection.AutoFilter Field:=8, Criteria1:="ALL" Or myDay1

Next daLoop

Cheers,
GLT

Auto-Filter on multiple worksheets automatically via VBA
 

apply the two filters to your range (using the custom option) with the macro
recorder turned on. It will show you how to do it.

--
Regards,
Tom Ogilvy


"GLT" wrote in message
...
Hi,

I am trying to use VBA to select 4 worksheets and run an Autofilter in
Column H (column # 8) on each sheet.

Each sheet is labelled from Jobsheet 1 ... 4.

The Autofilter criteria is "ALL" or myDay1

myDay1 = variable which contains the first 2 letters of the day (ie. MO TU
WE)

When I run this code, I get a runtime error 13. Can anyone tell what I am
doing wrong or a better way to write this code?

For daLoop = 1 To 4

jobStream = "Jobstream " & daLoop
MsgBox jobStream

Sheets(jobStream).Select
Selection.AutoFilter Field:=8, Criteria1:="ALL" Or myDay1

Next daLoop

Cheers,
GLT