ワークブックを開くマクロが動きません。
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
お礼
ありがとうございます。