Excel VisualBasic Script

Sub Worksheet_Activate()
    Dim msgOutput As String
    msgOutput = "This worksheet is " &  Workheets(2).Name
    MsgBox (msgOutput)
End Sub