how to open latest date in file name

[jason1000rr]

Hi Everyone--
Looking for guidance to open file with the latest date within its name. Below is what I am working with. I typed "Latest Date" where in name it would go. Name is always recent to current month, but date is older. Any help would be much appreciated. Thank you

Fname = "\\global.corp.net\someplace\someplaceProcurement\IQR\IQR " & LatestDate & ".xlsx"
Set wbb = Workbooks.Open(Filename:=Fname, UpdateLinks:=False, Notify:=False)
For Each wb In Application.Workbooks


I used below for another file I used to work with and it worked for when it was current date. But, not able to figure out for latest date.

Dim curDate As String, Fname As String
curDate = Format(Date, "yyyy-mm-dd")
Dim wba As Workbook, wbb As Workbook, wbc As Workbook, wbd As Workbook, wbe As Workbook, wbf As Workbook, wb As Workbook
Fname = "Y:\Consumables\corporation\DMC\DMC - Planning & Materials\On Hand Reports\DMC Site\" & curDate & "_INV_R12_DMC_Onhandreport.xlsx"
Set wba = Workbooks.Open(Filename:=Fname, UpdateLinks:=False, Notify:=False)

 

[jason1000rr]

You're right, but that's not necessary. The oWs already refers to the chosen sheet; if you insert a line in your code (at "your code goes here") like
.Select
the sheet (tab) will be selected.

Thanks! I tried and tried, but couldn't get it to work. Revised one of the macros I had as below and did it for me. Thanks again

 Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
    If ws.Name Like "*20*" Then ws.Activate
    Next ws

 

[GWteB]

You're welcome! I am glad I could be of some help.
Thanks for your feedback.