macro to all worksheets

[kaja48380]

hi
how to apply a single macro to all worksheets????????

 

[Gary''s Student]

Sub allsheets()
Dim w As Worksheet
For Each w In Worksheets
w.Range("A1").Value = 1
Next
End Sub
is an example of doing something on all the worksheets in a workbook.

 

[Don Guillett]

Sub allshts()
For Each ws In ActiveWorkbook.Sheets
MsgBox ws.Name
Next ws
End Sub