ファイル名が配列に一致（ワイルドカード）したとき、検索を行い、ヒットしたセルの右となりにファイル名を表示したい

Question

Sub ファイル名取得()

    '配列を取得-----------------------------------
    Dim i As Long
    Dim MyArray1 As Variant  '列C
    ReDim MyArray1(0)

    For i = 3 To 55
        If ThisWorkbook.Sheets(2).Range("B" & i).Value <> "" Then
            ReDim Preserve MyArray1(UBound(MyArray1) + 1)
                MyArray1(UBound(MyArray1)) = ThisWorkbook.Sheets(2).Range("B" & i).Value
        End If
    Next i
    
    '配列のEmptyを削除-----------------------------------
    Dim j As Long
    j = LBound(MyArray1)
    Dim k As Long

    For k = LBound(MyArray1) To UBound(MyArray1)
        If MyArray1(k) <> "" Then
            MyArray1(j) = MyArray1(k)
            j = j + 1
        End If
    Next k
    ReDim Preserve MyArray1(j - 1)
    
    'ファイル名取得-----------------------------------
    Dim filePath As Variant
    filePath = Application.GetOpenFilename( _
    FileFilter:="Excelブック(*.xlsx;*.xlsm;*.xls),*.xlsx; *.xlsm; *.xls;", MultiSelect:=True)
    
    Dim r As Long
    Dim wb As Workbook
    Dim rng As Range

    If IsArray(filePath) Then
        For r = LBound(filePath) To UBound(filePath)
            Set wb = Workbooks.Open(filePath(r))
            If wb.Name Like "*" & MyArray1(i) & "*" Then
                rng = ThisWorkbook.Sheets(2).Columns("B").Find(MyArray1(i))
                rng.Offset(0, 1).Select
                ActiveCell.Value = Dir(filePath)
            End If
        Next r
    Else
        Exit Sub
    End If

End Sub

B列には東京、神奈川、福岡、札幌などがあらかじめ入力されており、B列を配列に格納します。
ブックを開き、ファイル名が配列に一致（ワイルドカード）したとき
B列を配列で検索し、ヒットしたセルを選択後、右隣にファイル名を表示したいです。

If wb.Name Like "*" & MyArray1(i) & "*" Then

初歩的だとは思うのですが
エラー９　インデックスが有効範囲にありません。
と出ます。

どなたかご教示いただけたらと思います。
よろしくお願いいたします。

Comments

[jinoji]

i とは何なのか。哲学的ですな。

[Dis]

たった一言で迷路から抜け出せました。
本当にありがとうございました！笑

Answer 1

このコードだと、iは55で、UBound(MyArray1)は53とかじゃないでしょうか。

あらためてMyArray1を順番にループする手もありますが、たとえばこんな感じでどうでしょう。

If UBound(Filter(MyArray1, wb.Name)) > -1 Then