*Resolved* OnSheet_Selection?

[alex_read]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If (Sh.Name = "Sheet1") Then
        MsgBox "Hey, whaddayaknow Sheet1's been selected"
    End If
End Sub

Place this code inside of the "ThisWorkbook" module & enjoy!!!