Как активировать рабочую книгу с датами в имени файла и еженедельной сменой?

Question

Мне нужна твоя помощь. У меня есть этот основной макрос, который открывает файл предыдущего дня, используя ссылку на ячейку (местоположение файла и имя файла). Открытый файл используется для копирования данных из его рабочих таблиц (4 рабочих листа) в основной макрос. Я записал макрос, и дата была жестко запрограммирована. Когда я буду запускать макрос на следующей неделе, он выдаст мне ошибку, так как предыдущее имя файла было жестко закодировано. Я попытался использовать activeworkbook, но это не сработало, так как я возвращаюсь между основным файлом и предыдущим файлом при вставке копии.

пример запроса ниже

Sub OpenPrev()
'
' OpenPrev Macro
'

'
    ChDir "\\hfx1nas02\hfx1_data02_sh$\Share2\HFX MDBG\Marlon\MarkitEDM\EDM_WORK"
    Workbooks.Open Range("M1").Value & ".xlsx"
    Sheets("BBG COMDTY - Cur Data").Select
    Range("A3:AF10000").Select
    Selection.Copy
    Windows("EDM Summary Macro 1.1.xlsm").Activate
    Sheets("BBG COMDTY - Prev Data").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Windows("EDM_Matcher_Inbox_20191202.xlsx").Activate
    Sheets("BBG PK BBGID - Cur Data").Select
    Range("A3:AJ10000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("EDM Summary Macro 1.1.xlsm").Activate
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("BBG PK BBGID - Prev Data").Select
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    ActiveWorkbook.Activate
    Windows("EDM_Matcher_Inbox_20191202.xlsx").Activate
    Sheets("BBG BO - Cur Data").Select
    Range("A3:AH10000").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("EDM Summary Macro 1.1.xlsm").Activate
    ActiveWindow.ScrollWorkbookTabs Sheets:=2
    Sheets("BBG BO - Prev Data").Select