Control automatic runs of macros

Hi,

There is a following code:

MACRO1

Private Sub CommandButton1_Click()

Dim varNames1 As Variant


varNames1 = Array("FINALGRAND EVALUATIONS.xlsm", "FIRST\GRAND EVALUATIONS.xlsm")
For lngArr = LBound(varNames1) To UBound(varNames1)
  Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & varNames1(lngArr))
  wb.Close True
  Set wb = Nothing
Next lngArr

ActiveWorkbook.Save
ActiveWorkbook.Close


End Sub

And the file "FIRST\GRAND EVALUATIONS.xlsm" has got the following code:

MACRO2

Private Sub Workbook_Open()

Dim varNames1 As Variant

varNames1 = Array("EVALUATIONS.xlsx", "CAL1\CALCULATIONS.xlsx", "CAL1\RESULTS.xlsx")
For lngArr = LBound(varNames1) To UBound(varNames1)
  Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & varNames1(lngArr))
  wb.Close True
  Set wb = Nothing
Next lngArr

ActiveWorkbook.Save
ActiveWorkbook.Close


End Sub

Here, whenever a file "FIRST\GRAND EVALUATIONS.xlsm" is opened, it runs a macro2 . But I would like to control the running of that macro, so that it runs only when it is told to do so.

Please provide me with some solutions to control that macro2 from regular RUNS.

Thanks