Did you use the workbook module, instead of a worksheet module??such As

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
MsgBox "hi"
End Sub