Sub シート数を取得する()

    MsgBox Worksheets.Count

End Sub