VBA To Open File Based on Its Name

[reddsable]

Hi There, I want to open an Excel file based on this name. The name needs to end with the string "AB11.xlsx"

I tried this code, but the file is not found:

Dim wb As Workbook
Dim SourceWorkbook As Workbook


Set wb = ThisWorkbook
Set SourceWorkbook = Workbooks.Open("C:\Users\Me\Desktop\Test\Split \*AB11.xlsx")

Any idea what I am doing wrong?

 

[Fluff]

Will there only be one file in the folder that ends with AB11.xlsx?

 

[reddsable]

There are several files in my folder, and only one ends with AB11. After this file is found, i want to find the next file, this time with AB12 and so on..

 

[Fluff]

Ok, how about

   Dim wb As Workbook, SourceWorkbook As Workbook
   Dim Pth As String, Fname As String
   
   Pth = "C:\Users\Me\Desktop\Test\Split \"
   Set wb = ThisWorkbook
   Fname = Dir(Pth & "*AB11.xlsx")
   If Fname = "" Then
      MsgBox "file not found"
      Exit Sub
   End If
   Set SourceWorkbook = Workbooks.Open(Pth & Fname)

 

[reddsable]

Ok, how about

   Dim wb As Workbook, SourceWorkbook As Workbook
   Dim Pth As String, Fname As String
  
   Pth = "C:\Users\Me\Desktop\Test\Split \"
   Set wb = ThisWorkbook
   Fname = Dir(Pth & "*AB11.xlsx")
   If Fname = "" Then
      MsgBox "file not found"
      Exit Sub
   End If
   Set SourceWorkbook = Workbooks.Open(Pth & Fname)

That worked! Thank you so much!

 

[Fluff]

You're welcome & thanks for the feedback.