エクセルのワークブック内のシート分ループさせる

エクセルのワークブック内のシート分ループさせる。

Excel2010で確認。

Sub printSheetName()
  Dim ws As Worksheet
  ' ワークシートの数分ループする。
  For Each ws In ActiveWorkbook.Sheets
    ' ワークシートの数分ループしているかメッセージボックスにワークシート名を出力して確認する。
    MsgBox ws.Name
  Next ws
End Sub