VBA Activate open workbook with name ending as current date

[Warages]

Hi,

I have multiple files ending with current date, but the start of the filename is always different.
For example "sun_(current date)" and "moon_(current date)" etc. The start of the file names are not known.

I will have the macro file open and one of the multiple files that have different names (but same ending).
I try to activate the window of the workbook that ends with the current date, so that the tabs are inserted over to the macro file.
Only the file with the macro and one other file will be open at the same time.

I could only make it work if the start of the filename is always the same with a different ending.
I can't make it work if the start is different.

 

[JonXL]

Are the dates always in the same format?

What is the code you have now that can open the file based on the beginning portion of its name?

 

[Warages]

The dates are always in the same format.
I can activate the file "100218_moon" with the code below.
I wish to activate the file with the name "moon_100218" instead.
The name 'moon' is just an example and could be anything.

Sub ActivateFile()
Dim wb As Workbook
For Each wb In Application.Workbooks
If wb.Name Like Format(Date, "ddmmyy") & "_*" Then
wb.Activate
Exit Sub
End If
Next wb
End Sub