Auto-Filter on multiple worksheets automatically via VBA

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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.
 
Back
Top