開いているブック一覧 ＆ ワイルドカード判定

標題の通り。

Sub ブック一覧()
    Dim wb As Workbook
    Dim sheet As Worksheet
    
    Debug.Print "ThisBook :" & ThisWorkbook.Name
    
    For Each wb In Workbooks
        Debug.Print wb.Name
        If wb.Name Like "*探し物*" Then
            Debug.Print "探し物が見つかりました！ :" & wb.Name
        End If
        For Each sheet In wb.Worksheets
            Debug.Print "  Sheet: " & sheet.Name
        Next sheet
    Next wb
End Sub