ブックのすべてのシート名を取得するコード

質問

何が間違いなんでしょうか？
エクセル２００３です。

ブックのすべてのシート名を取得するコードを考えてるのですが
なぜか一番左のシート名しか取得できません。

コードは↓です。
-----------------------------------
Sub test01()
Dim x As Workbook

For Each x In Workbooks
Debug.Print ActiveSheet.Name
Next
End Sub
-----------------------------------

できないので「Workbooks」の部分を「ThisWorkbook」に変えてみたところ
実行時エラーになってしまいました。

ご教授よろしくお願いします。

回答No.2

keithin · ベストアンサー

スコープがデタラメです。

sub macro1()
　dim w as worksheet
　for each w in worksheets
　　msgbox w.name
　next
end sub

お礼

出来ました。ありがとうございました。

回答No.1

bin-chan

sub Test()

　dim nCounter as long

　for nCounter = 0 to thisworkbook.sheets.count
　　debug,print thisworkbook.sheets(nCounter).name
　next nCounter

end sub

テストしてないので、「forは1から」かも。

お礼

Sub Test()

Dim nCounter As Long

For nCounter = 1 To ThisWorkbook.Sheets.Count
Debug.Print ThisWorkbook.Sheets(nCounter).Name
Next nCounter

End Sub

にしたら、うまくいきました！ありがとうございました。