現在開いているbook全てを対象に処理したい

Excel VBA で質問です。
現在開いている全てのbookを対象に処理したい場合どうすればよろしいでしょうか？

*内容*
Sub グラフ参照先変更()

Dim wb As Workbooks
Dim ws As Worksheet
Dim myAd As String
Dim myChart As ChartObject
myAd = "A40:A70,I40:I70,N40:N70,S40:S70,X40:X70"
＞For Each wb In Workbooks
For Each ws In Worksheets
For Each myChart In ws.ChartObjects
myChart.Chart.SetSourceData Source:=ws.Range(myAd), PlotBy:=xlColumns
Next myChart
Next ws
Next wb
End Sub

＞で現在エラーが起きています。
アドバイスよろしくお願い致します。

No.2 ベストアンサー 回答者： taka_tetsu 回答日時： 2005/01/29 11:59

>For Each ws In Worksheets

さらに、
For Each ws In wb.Worksheets
にしないとせっかく列挙したブックが無視されます。

この回答へのお礼

結果が得られるようになりました。アドバイスありがとうございましたm(__)m

お礼日時：2005/01/29 23:05

No.1 回答者： noname#10813 回答日時： 2005/01/29 08:32

Dim wb As Workbooks　を　Dim wb As Workbook　に変えると大丈夫だと思います。

この回答へのお礼

#2さんの補足と合わせて、結果が得られるようになりました。アドバイスありがとうございました。

お礼日時：2005/01/29 23:04