Okay here it is. I've done a bunch of coding in the last 3 or 4 months, learned a lot, BUT, I can't figure out why this code STILL opens a file when I hit cancel at the end once the popup window comes up showing my filtered filenames. Any advice would be highly appreciated.

```
 Sub OpenByPartialName()

 '  Returns popup window with only filtered filenames matching
 '  Partial Filename input

 Dim WB As Workbook
 Dim Ans As String
 Dim MyFile As String
 Dim path As String

 '  Folder Path Name for Forms
 path = ("S:\Forms Folder\")

     Ans = InputBox("Enter Partial filename Filter", "Open File With Partial Name Filter")

    MyFile = Dir("S:\Forms Folder\" & "*" & Ans & "*.xls")

     MyFilter = path & "*" & Ans & "*.xls"

     With Application.FileDialog(msoFileDialogOpen)
         .AllowMultiSelect = False
         .InitialFileName = MyFilter

         If .Show = 1 Then
            MyFile = .SelectedItems(1)
         End If
     End With

     On Error Resume Next
     Set WB = Workbooks.Open(MyFile)

 End Sub

```