Search for file names and list them in column A

Hello everyone
The following masterpiece of code is Mr. Leith Ross's code. It searches for specific file names that contain specific string

Private FileFilter  As String

Function ListFiles(ByVal FolderPath As Variant, ByRef OutputCell As Range, Optional ByVal SearchDepth As Long)
' Written:  November 07, 2015
' Author:   Leith Ross
' SearchDepth = Maximum level (depth) of Subfolders to search.
    Dim N           As Long
    Dim oFile       As Object
    Dim oFiles      As Object
    Dim oFolder     As Variant
    Dim oShell      As Object
    
    If oShell Is Nothing Then
        Set oShell = CreateObject("Shell.Application")
    End If
    
    Set oFolder = oShell.Namespace(FolderPath)
    If oFolder Is Nothing Then
        MsgBox "The Folder '" & FolderPath & "' Does Not Exist.", vbCritical
        SearchDepth = 0
        Exit Function
    End If
    
    Set oFiles = oFolder.Items
    
    N = 0
    
    oFiles.Filter 64, FileFilter
    For Each oFile In oFiles
        OutputCell.Offset(N, 0) = oFolder.self.Name
        OutputCell.Parent.Hyperlinks.Add OutputCell.Offset(N, 1), oFile.Path, , , oFile.Name
        N = N + 1
    Next oFile
    
    Set OutputCell = OutputCell.Offset(N, 0)
    
    oFiles.Filter 32, "*"
    If SearchDepth <> 0 Then
        For Each oFolder In oFiles
            Call ListFiles(oFolder, OutputCell, SearchDepth - 1)
        Next oFolder
    End If
End Function

Sub ListFilesTest()
    Dim lastRow As Long
    Dim Rng     As Range
    Dim Wks     As Worksheet
    
    Set Wks = Worksheets("Sheet1")
    Set Rng = Wks.Range("A1:B1")
    lastRow = Wks.Cells(Rows.Count, "A").End(xlUp).Row
    
    FileFilter = InputBox("Enter the Full or Partial name of the Files to Find.")
    If FileFilter = "" Then Exit Sub
    
    FileFilter = "*" & FileFilter & "*"
    
    Rng.Resize(lastRow - Rng.Row + 1, 2).Clear
    
    ListFiles "G:\Test", Worksheets("Sheet1").Range("A1"), 1
End Sub

It works fine but I need to add flexible way to be able to search for more than a string ..
for example if I have a file name "Copy Non-Contiguous Columns To Another Sheet In Different Order"
If I searched the string 'non' it is ok and the file name appears in results
If I searched the string 'order' it is ok and the file name appears in results
But if I searched 'non order' the file name doesn't appear in results ...!!and this is the problem for me

I mean it is ok if I used one string
I need it to be flexible that I need sometimes to type two ot three or more strings ..
So as in example I need to the file name "Copy Non-Contiguous Columns To Another Sheet In Different Order" to appear in results if I typed in inputbox the string 'order non copy' .. the order of strings may be from right to left or from left to right or scrambled ..and the case of letters is not sensitive

Thanks advanced for help

Does putting the string like this help any?

"non?order"

Thanks Dave for quick reply
This method doesn't work .. or you mean you can edit the code so as to be able to search for file names using this method ..if so ok no problem using this method

Thank you very much for Mr. Leith Ross for this masterpiece... I appreciate his help in this code as this code is his masterpiece

Are you there Mr. Lewis?
May you have a look at the code ..and tell me if my request is possible or not?

Hello Yasser,

Yes, Yasser it can be done. To use multiple words in the title, I would need to create a UserForm to accept multiple search words and options. The UserForm inputs would then be used to create the FileFilter.

Thanks a lot for reply Mr. Leith
But I don't need results to appear on userform .. I need the same results in column with hyperlinks to the results ..this saves my time a lot
Or you mean to use userform just for inputs instead of inputbox
Regards

Hello Yasser,

I did mean to use the UserForm just for inputs instead of the input box. It will allow more inputs to be combined in different ways for filtering.

Thanks Mr. Leith for reply
I still wait for your reply
Here's a code that search for all instances in column A and show the cells for results and hide other rows ..
This may help to reach the goal

Sub SearchStrings()
    Dim SearchStr As String
    Dim Str() As String
    Dim Matched As Boolean
    Dim Cel As Range, Rng As Range
    Dim LastRow As Long, I As Long

    SearchStr = InputBox("Please Insert Search String(s)", , "Please help")
    Str() = Split(LCase(SearchStr), " ")
    LastRow = Application.WorksheetFunction.Max(Range("A" & Rows.Count).End(3).Row, ActiveCell.Row + 1)
    
    Range("A1:A" & LastRow).EntireRow.Hidden = False
    For Each Cel In Range("A1:A" & LastRow)
        Matched = True

        For I = 0 To UBound(Str())
            If InStr(LCase(Cel.Value), Str(I)) = 0 Then
                Matched = False
                Exit For
            End If
        Next I

        If Matched Then
            If Rng Is Nothing Then
                Set Rng = Cel
            Else
                Set Rng = Union(Rng, Cel)
            End If
        End If
    Next Cel

    If Rng Is Nothing Then
        MsgBox "No Matching Cell Found."
    Else
        Range("A1:A" & LastRow).EntireRow.Hidden = True
        Rng.EntireRow.Hidden = False
    End If
End Sub

Mr. Leith Ross
Do you remember my thread and working on it ..?
Thank advanced for your help

Bump ... Any help