I currently have a macro used to copy the first "word" of a line, search a specific directory for that "word".jpg and paste it in the spot. The code is fairly primitive and has to be exact and will not search the folders sub-folders for that "word". Is it possible using VBA macros to search the sub-folders?

My current code is the following, it will search the specified directory for whatever "VARIABLEcounter" is set to and paste that image.


InsertImage Trim(counter)

and

Sub InsertImage(VARIABLEcounter)
On Error Resume Next
Selection.InlineShapes.AddPicture FileName:= _
"C:\Users\***Picture Test\" & VARIABLEcounter & ".jpg", LinkToFile:=False, _
SaveWithDocument:=True
End Sub

Thanks