VBAで、指定ブックをアクティブにしようとすると、エラーが発生する。

Question

前提・実現したいこと

block3_correct.xlsx～block7_correct.xlsx、４つのブックについて、
シートの値をフィルタリングし、フィルタされた行を削除する操作を行おうとしています。
ループで各ブックにつき処理を行うにあたり、
各ブックをアクティブにする必要があると思うのですが、
Workbooks(Data(i)).Activate
で、エラーになってしまいます。
どうしたら、問題なくループが回せるようになるでしょうか？

発生している問題・エラーメッセージ

インデックスが有効範囲にありません。

該当のソースコード

Sub 正解データ()

    'カレントディレクトリを確認
    MsgBox "変更前のパス：" & CurDir
    ChDir "C:\Users\×××\OneDrive\ドキュメント\大学院\修士論文\facial expression\実験データ0605\0618\3"
    '変更後のパス確認
    MsgBox "変更後のパス：" & CurDir
    
    Dim Data(1 To 4)
    
    Data(1) = "block3_correct.xlsx"
    Data(2) = "block4_correct.xlsx"
    Data(3) = "block6_correct.xlsx"
    Data(4) = "block7_correct.xlsx"
    
    Dim i As Integer
    For i = 1 To 4
        MsgBox Data(i)
        Workbooks(Data(i)).Activate
        '行抽出
        ActiveWorkbook.ActiveSheet.UsedRange.AutoFilter _
        Field:=1, _
        Criteria1:=False
        '行削除
        With ActiveWorkbook.ActiveSheet.Range("A1").CurrentRegion.Offset(1, 0).EntireRow.Delete
        End With
        'オートフィルタ解除
        ActiveWorkbook.ActiveSheet.Range("A1").AutoFilter  
    Next
End Sub

試したこと

Data(i)には値はちゃんと入っているのですが、
Workbooks(Data(i)).Activateが動きません。
ブックの指定がうまくできていないということなのでしょうか。

Answer 1

もしWorkbooks(Data(i)).Activateのところでエラーになっているなら、そのブックが含まれてないということです。
試しに以下のコードを埋め込んで、Workbooksの中身を確認してください。
ちゃんと4つのブック名が表示されますか？

Dim b As Workbook
For Each b In Workbooks
    Debug.Print b.Name
Next

Comments

[YYJP]

ご回答ありがとうございます。Workbooksの中身は、
意図していたblock3_correct.xlsx～block7_correct.xlsxのブックではなく、これらのブックの大元となっているブック(このブックのシートをCopyして、各ブックを作成しました)でした・・・。

大元のブックも、block3_correct.xlsx～block7_correct.xlsxも同じフォルダには置いてあるのですが、どうしたら、block3_correct.xlsx～block7_correct.xlsxをアクティブブックとして指定できるようになるでしょうか？

[neconekocat]

各ブックが開かれているかどうかすら分からないのでなんとも言えません。
もし開いていないのであればWorkbooks.Open等で開いてやる必要があります。
そもそも論になってしまいますが、各ブックを作成する処理を変えるのが一番キレイな形になるのではないでしょうか？

[YYJP]

Workbooks.Openを使って、無事やりたかった処理ができました！
あとは、動かしながら、コードをきれいに直したり短くしたりしていこうと思います。
本当にありがとうございました！