SheetActivate Event Example

This example displays the name of each activated sheet.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    MsgBox Sh.Name
End Sub