Exclude Files from GetOpenFileName based on File Name

Hi

I've this code to present the user of a list of files to open

' File filters
    Filter = "Excel Files (*.xls*),*.xls*  "
    FilterIndex = 1
    ' Set DialogCaption
    Title = "Select a File to Open"
 
    ' Select Start Drive & Path
    ChDir "C:\ABC\CBA LOSE"  'You will need to change this to S:\ABC\CBA LOSE\
 
    With Application
        ' Set File Name to selected File
        fileName = .GetOpenFilename(Filter, FilterIndex, Title)
    End With
    ' Exit on Cancel
    If fileName = False Then
        MsgBox "No file was selected."
        Exit Sub
    End If
    ' Open File
    Workbooks.Open fileName

and it presents with this screen screen capture.jpg

I'd like the screen to NOT include any files with "Apple" in the file name. So, the fifth item on the list (Apple MTS (Template).xls) would not be displayed. ( I've tried to filter on "<> InStr(File.Name,"Apple")" with no success.

Any way to accomplish this?