ワークブックを開くマクロが動きません。

D列7行目のセル以降に記入したワークブックを次々と開きたいと思い、マクロを書いてみたのですが、実行時エラー424、オブジェクトが必要ですとのメッセージが出力され、ブックが開きません。

どこを修正すればよろしいでしょうか？アドバイスを頂けないでしょうか。
　 || D |

7行｜|テスト1｜
8行｜|テスト2｜
9行｜|テスト3｜


Sub ワークブックオープン()
'■変数設定
Dim Mypath As String, x As Integer, MycelNO As Integer
Dim Myworkbook As String, Mybook As String

Mypath = ActiveWorkbook.Path '格納フォルダのパスを取得する。
MycelNO = Range("D7").CurrentRegion.Rows.Count 'D列の処理ブックの数を数える。

'■連続実行
'--処理開始-----------------------------------------------------------------
For x = 7 To 7 + MycelNO
Mybook = Cells(x, 4)
Myworkbook = Mypath & "\" & Mybook & ".xls"

Workbook.Open Filename:=Myworkbook

Next x

End Sub

No.1 ベストアンサー 回答者： naktak 回答日時： 2006/08/18 17:28

Workbooks.Open Filename:=Myworkbook

こうではなかろうか？

この回答へのお礼

あっ！！
どうもありがとうございました。動きました。

お礼日時：2006/08/18 18:34