Hi,
This worked for me with the SheetActivate event.
----------------------
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.EnableEvents = False
If Sh.Name Like "*2" Then
Sh.[A1] = Date
End If
Application.EnableEvents = True
End Sub
----------------------
Did you want the code to cycle through all worksheets and add the date in A1 if the active sheet ends in 2?
Regards,
Jay
Like this thread? Share it with others