Selected Answer
Here is sample code to get you started:
Sub GetFileNames()
Dim xRow As Long
Dim xDirect, xFname
Dim Dest As Range
On Error Resume Next
'Change this to put the data in a different place in the workbook.
'ActiveCell places the data in the currently selected cell and below.
Set Dest = ActiveCell
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Application.DefaultFilePath & "\"
.Title = "Select a folder"
.Show
If .SelectedItems.Count <> 0 Then
xDirect = .SelectedItems(1) & "\"
xFname = Dir(xDirect, 7)
Do While xFname <> ""
If (xFname Like "*telst*") = True Then
Dest.Offset(xRow) = xFname
xRow = xRow + 1
xFname = Dir
Else
xFname = Dir
End If
Loop
End If
End With
End Sub
I modified it a little bit from the macro on teachexcel here:
List All Files from a Directory into Excel
You will need to modify to suit your needs but this is the rough version of what you need.
You can learn more about the "search" feature of the macro, the like keyword here:
Like Operator (microsoft's documentation)
The search term is currently telst and the * characters around that word in the macro mean that that word can be located anywhere in the file names.