View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default 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