上記タイトル通りです。
今日の日付とキーワード(この場合は「kuma」)が含まれているファイルを開き、シートのA1セルの文字をmsgboxで出します。
ファイルを探す方法は、エクセルレジェンドの田中先生のマクロを参考にさせていただきました。
Sub test()
Dim path As String, buf As String, wb As Workbook
path = ThisWorkbook.path & "\"
buf = Dir(path & "*xls*")
Do While buf <> ""
If buf Like "*" & Format(Now(), "eemmdd") & "*kuma*" Then
Workbooks.Open Filename:=path & buf
Set wb = ActiveWorkbook
MsgBox wb.Worksheets(1).Range("A1")
Exit Do
End If
buf = Dir()
Loop
Set wb = Nothing
End Sub