Excel VisualBasic Script

Sub getWorkSheetName()
    MsgBox ThisWorkbook.Worksheets(1).Name
End Sub