【マクロ実践編１】の処理の部分に適用できる

A列に指定の文字が入力されているとき、その右のセルB列に指定の文字を含んだファイル名を書込む

◆Point
Likeの書き方とflgを立ててファイルが見つかったらfor文から抜けること

For i = 2 To maxRow
　flg = False
　For Each mysubfile In mysubfiles
　　If mysubfile.Name Like "*" & Range("A" & i) & "*.xlsx" Then
　　　flg = True
　　　Range("B" & i).Value = mysubfile.Name
　　　Exit For
　　End If
　Next
◆該当ファイルがない場合「なし」と表記
　If flg = False Then
　　Range("F" & i).Value = "なし"
　End If
Next