Welcome to the forum.
I assumed that you meant to find the word in the filename only - searching the contents of the file is a different task: not difficult, just different.
Copy this macro into a standard codemodule in a macro-enabled workbook, save the workbook with this macro in the folder of interest, type the word in cell A1 and run the macro.
![]()
Sub FindWordInFileName() Dim strPath As String Dim strWFile As String Dim rc As Range Application.DisplayAlerts = False Range("B:B").ClearContents Set rc = Range("B1") strPath = ThisWorkbook.Path & "\" strWFile = Dir(strPath & "*" & Range("A1").Value & "*") Do While strWFile <> "" rc.Value = strWFile Set rc = rc(2) strWFile = Dir() Loop End Sub
Bookmarks