Sub FilterFiles()
Dim sPath As String
Dim sFile As String
Dim sDir As String
Dim oLB As Workbook
Dim i1 As Long
Dim iMax As Long
 
sPath = "C:\Users\Om\Downloads\"
sDir = FileSystem.Dir(sPath & "RFC*.xls", vbNormal)
Do Until LenB(sDir) = 0
   Debug.Print sDir
    Set oLB = Workbooks.Open(sPath & sDir)
    
    ' -- Do Something
    If oLB.Saved = False Then oLB.Save
    oLB.Close False
    sDir = Dir$
Loop

End Sub