Not quite sure where to start here..

Anyway, I have made a file to delegate manpower.
The file is READ ONLY and is my MASTER COPY.
Each day I open the sheet, run a macro to create a copy of my sheet which is effectively named as today's date.

Here's my problem.
In the master sheet I have built a macro called "sendtotransfersheet" which copies the workload from a named range in my daily sheet.

Next the macro opens a routing file called Transer Sheet.
It next pastes my workload in to the transfer sheet, then saves and closes my transfer sheet.

In the script, I'm having trouble with the correct naming criteria for my daily created files which are NON READ ONLY.

Part of the script I'm running has a defined name for my daily worksheets but as this changes everyday to a new name given the date has changed I can't get my script to run as it's looking for the exact file name named earlier in my MASTER COPY.

Sub SENDTOMYTRANSFERSHEET()    
    Application.ScreenUpdating = False
    ToggleCopy2
    Workbooks.Open Filename:="F:\Transfer Sheet.xls"
    Sheets("Transfercopy").Select
    Range("A17:L200").Select 
    Selection.ClearContents
    Sheets("TRANSFERMANPOWER").Select
    Range("D11:R20").Select
    Selection.ClearContents
    Windows("DAILY SHEET.xls").Activate  ' PROBLEM ON WHAT TO NAME FILE SO IT USES TODAY'S DATE FILE  ??? 
    Sheets("WhiteBoard").Select
    Range("B35:M200").Select '' Range is in daily generated worksheets
    Selection.Copy
    Windows("Transfer Sheet.xls").Activate
    Sheets("Transfercopy").Select
    Range("A17").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Windows("DAILY SHEET.xls").Activate  ' SAME PROBLEM HERE ???
    Sheets("WhiteBoard").Select
    Range("O35:R200").Select
    Selection.Copy
    Windows("Transfer Sheet.xls").Activate
    Sheets("Transfercopy").Select
    Range("M17").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Windows("DAILY SHEET.xls").Activate  ' SAME PROBLEM AGAIN HERE
    Sheets("OVERNIGHT WORK DELEGATION").Select
    ToggleCopy3
    Range("D19:P37").Select
    Selection.Copy
    Windows("Transfer Sheet.xls").Activate
    Sheets("OVERNIGHT WORK DELEGATION").Select
    Range("D19").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("D19").Select
    Application.CutCopyMode = False
    Windows("Transfer Sheet.xls").Activate
    Sheets("Transfercopy").Select
    Range("A17").Select
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows("DAILY SHEET.xls").Activate  ' AND LASTLY PROBLEM AGAIN HERE ?????
    Sheets("OVERNIGHT WORK DELEGATION").Select
    Range("D1").Select
    Application.CutCopyMode = False
    ToggleCopy3
    Sheets("WhiteBoard").Select
    Range("R35").Select
    Application.CutCopyMode = False
    ToggleCopy2
    Application.ScreenUpdating = True
    
End Sub
Any help is greatly appreciated thx