Excel VisualBasic Script

Private Sub Worksheet_Activate()
    MsgBox "You just activated " & ActiveSheet.Name
End Sub