Nedan kod öppnar alla filer i mappen c:\test som innehåller ordet fakt. Bara att ändra dessa parametrar så bör det fungera för dig. Gör det inte det så är det specialtecken som blir problematiska e.g "_" och "-".
Om du behöver göra något mer med dina filer så är det nog bättre att lägga in dem i en collection först.
Sub dub()
Dim sPath As String: sPath = "C:\test\"
Dim sFile As String
sFile = Dir(sPath & "*test*")
Do While Len(sFile) > 0
On Error Resume Next
Workbooks.Open (sPath & sFile)
On Error GoTo 0
sFile = Dir
Loop
End Sub