標題の通り。 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…