Sub allshts()
For Each ws In ActiveWorkbook.Sheets
MsgBox ws.Name
Next ws
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

wrote in message
...
hi
how to apply a single macro to all worksheets????????