Question regarding opening of wb

Sub GetIt()
    Dim vFile As Variant
    vFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
    If vFile <> False Then
        Workbooks.Open CStr(vFile)
    End If
End Sub

Sub GetRedCells()
Dim strMyBook As String
Dim cell As Range
Dim TempBook As Workbook


   On Error GoTo ErrorHandler

    Application.ScreenUpdating = False
    Set TempBook = Workbooks.Add
    
    'Change line below to suit
    strMyBook = "I:\IMF stage starts wk 30.5.xls"         
    Workbooks.Open Filename:=strMyBook
    Range([A1], [IV1].End(xlToLeft)).Copy Destination:=TempBook.Sheets(1).Range("A1")
    
    ' Change Criteria1 to suit
    Range("D:D").AutoFilter Field:=4, Criteria1:="S03E"
    
    For Each cell In Range("E:E").SpecialCells(xlCellTypeVisible)
        If cell.Interior.ColorIndex = 3 Then _
            cell.EntireRow.Copy Destination:=TempBook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
    Next cell
    
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
Range("A:P").EntireColumn.AutoFit
Range("J1").EntireColumn.AutoFit
   On Error GoTo 0
   Exit Sub

ErrorHandler:

    MsgBox "Error: " & Err.Number & " (" & Err.Description & ")"
End Sub


"I:\IMF stage starts wk 30.5.xls"  this is the part i need it to be able to pick up newest file .

was hoping there would be a way to do by the date the file was created( if it was created today then open it ) or a inputbox where you can just put in the week no and day no

as the name of the file allways stays the same just the week and day no on end changes everyday


Thanks


Merc

Option Explicit

Sub GetRedCells()
Dim cell As Range
Dim TempBook As Workbook


   On Error GoTo ErrorHandler

    Application.ScreenUpdating = False
    Set TempBook = Workbooks.Add
   
    'Change line below to suit
    Dim vFile As Variant
    vFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
    If vFile <> False Then
        Workbooks.Open CStr(vFile)
    End If

    Range([A1], [IV1].End(xlToLeft)).Copy Destination:=TempBook.Sheets(1).Range("A1")
   
    ' Change Criteria1 to suit
    Range("D:D").AutoFilter Field:=4, Criteria1:="S03E"
   
    For Each cell In Range("E:E").SpecialCells(xlCellTypeVisible)
        If cell.Interior.ColorIndex = 3 Then _
            cell.EntireRow.Copy Destination:=TempBook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
    Next cell
   
    ActiveWorkbook.Close False
    Application.ScreenUpdating = True
Range("A:P").EntireColumn.AutoFit
Range("J1").EntireColumn.AutoFit
   On Error GoTo 0
   Exit Sub

ErrorHandler:

    MsgBox "Error: " & Err.Number & " (" & Err.Description & ")"
End Sub