Excel VisualBasic Script

Sub getSheetCount()
    MsgBox ThisWorkbook.Worksheets.Count
End Sub