Many Thanks ...its been an education.

"Don Guillett" wrote:

Sub Filter_All_Booth()
Dim WS As Object

For Each WS In Worksheets
If WS.Name < "Summary" Then

WS.Range("A2:p50").AutoFilter Field:=2, Criteria1:="Booth"
end if
Next WS
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
hi,

this is my final code but i get an error...run time error 91 ??

Sub Filter_All_Booth()
Dim WS As Object
If WS.Name < "Summary" Then

For Each WS In Worksheets
WS.Range("A2:p50").AutoFilter Field:=2, Criteria1:="Booth"
Next WS

End If

End Sub

thx


"Don Guillett" wrote:

if ws.name <"Summary" then

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
Hi JF ,

How would I exclude the first worksheet. This is going to be a summary
sheet
with macro button which the user will click to filter.

Thanks

" wrote:

Hi Manir,

How's this do you?

Sub Filter_All_Sheets()
Dim WS As Object
For Each WS In Worksheets
WS.Range("A1:C10").AutoFilter Field:=2, Criteria1:="Tyson"
Next WS
End Sub

Change the Range, Field (2 = column B) & Criteria to suit

JF

On 30 Jul, 16:23, manfareed
wrote:
Hi,

I am after a macro which filters by a particular name eg. Tyson in
Column B
for all worksheets in a workbook.

I would be attaching this macro to a "macro" button so when the
admin
click
the button the sheets are filtered for Tyson. If they click another
button
then the filter will apply to another name eg. ALI.

Please help with macro. I would record it but each month the sheet
names and
number of sheets will vary.

Thanks,

Manir