Display a message when worksheet is active

Hello all,

What code can I use in order to display a msgbox when a worksheet is active??

Thank you all

This goes in the ThisWorkBook module:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "This Sheet " & Chr(34) & ActiveSheet.Name & Chr(34) & " Is Now Active", vbOKOnly, "Sheet Activation"
End Sub

every time you change sheet you get a message pop up to tell you which sheet has been activated!

Regards,
Simon

Originally Posted by Simon Lloyd

This goes in the ThisWorkBook module:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "This Sheet " & Chr(34) & ActiveSheet.Name & Chr(34) & " Is Now Active", vbOKOnly, "Sheet Activation"
End Sub

every time you change sheet you get a message pop up to tell you which sheet has been activated!

Regards,
Simon

Thank you Simon ( :

Glad to help!

Regards
Simon