Help with MACRO for opening workbook

[sTUROB]

Hi I want to open a workbook from a macro that has a date included i
the name. I'd like it to open the newest one in the folder a new one i
added every day.
Ive got this so far but what do change to make it open the latest date.

ChDir "P:\Conduit"
Workbooks.Open Filename:="P:\Conduit\Shift Checker - 29t
November.xls", _
Notify:=False
Application.WindowState = xlMaximized
Range("F2:H4").Select
ActiveCell.FormulaR1C1 = "31770"
Range("F5").Select
Application.Run "'Shift Checker - 29th November.xls'!all"
End Sub

Thanks St

 

[Max]

Hi I want to open a workbook from a macro that has a date included in

the name. I'd like it to open the newest one in the folder a new one is

added every day.

Ive got this so far but what do change to make it open the latest date.



ChDir "P:\Conduit"

Workbooks.Open Filename:="P:\Conduit\Shift Checker - 29th

November.xls", _

Notify:=False

Application.WindowState = xlMaximized

Range("F2:H4").Select

ActiveCell.FormulaR1C1 = "31770"

Range("F5").Select

Application.Run "'Shift Checker - 29th November.xls'!all"

End Sub



Thanks Stu

This would open the file (provided the date was "today".

Sub tester()
Workbooks.Open Filename:="Shift Checker - " & Format(Date, "d") & "nd " & Format(Date, "mmmm") & ".xls"
End Sub