Activate and deactivate events in a workbook
Private Sub Workbook_SheetActivate(ByVal Sh As Object) MsgBox Sh.Name End Sub