Should get you going.

Sub eachsht()
For i = 2 To Worksheets.Count
With Sheets(Sheets(i).Name)
MsgBox .Range("a1")
End With
Next i
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"manfareed" wrote in message
...
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