Как использовать CommandButton_Click () в качестве переменной для расположения файла

Question

Я пытаюсь получить входные данные от пользователя в Module1 & Module2 (это местоположения файлов) и пытаюсь запустить макрос в Module3, используя переменную информацию, полученную в Module1 & Module2, в качестве местоположения файла в Module3. Я использую Excel 2016 и пытаюсь создать кнопки и автоматизировать процесс.

Код указан ниже:

Private Sub CommandButton1_Click()

a = Application.GetOpenFilename()
If a = False Then
MsgBox ("you have not selected any file")
Else
ThisWorkbook.Worksheets("Sheet1").Cells(9, 9).Value = a
End If

End Sub

Private Sub CommandButton2_Click()

b = Application.GetOpenFilename()
If b = False Then
MsgBox ("you have not selected any file")
Else
ThisWorkbook.Worksheets("Sheet1").Cells(13, 9).Value = b
End If

End Sub

Private Sub CommandButton3_Click()

    Workbooks.Open a
    Application.WindowState = xlMaximized
Sheets("Open Orders").Select
        Range("N2:AV2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
    Application.WindowState = xlMaximized
    Workbooks.Open b
    Application.WindowState = xlMaximized
    Range("A2:AL2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows(b).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("N:N").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
    ActiveWindow.SmallScroll Down:=-108
    ActiveWindow.ScrollRow = 4616
    ActiveWindow.ScrollRow = 3693
    ActiveWindow.ScrollRow = 2
    Range("AY16").Select
    Sheets("Open Orders").Select
    Range("F12").Select
    Application.CutCopyMode = False
    ActiveWorkbook.RefreshAll

End Sub