Sub demo()
Dim w As Worksheet
For Each w In Worksheets
w.Activate
Range("A1") = Now()
Next
End Sub
--
Gary's Student


"Ken King" wrote:

I would like to write a macro that would write the date & time to a cell in
the active worksheet tab, the same location for each tab, upon saving the
workbook. Could someone help me with this macro?

Thanks,
Ken