Macro para ejecutar un modulo cuando se abre Excel

Hola buen día, deseo ejecutar un modulo, ya tengo la rutina, pero no le hallo donde insertarlo para que lo ejecute cuando se abra Excel, su ayuda de favor, anexo el código que manejo y hasta abajo el modulo que tengo:

Private Sub Workbook_Open()
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
With ActiveWindow
.DisplayHeadings = False

.DisplayHorizontalScrollBar = False

.DisplayVerticalScrollBar = False

.DisplayWorkbookTabs = False

.DisplayGridlines = False
End With

With Application
.DisplayFormulaBar = False

.DisplayStatusBar = False
End With
End Sub

________________________________________________________

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ExecuteExcel4Macro ("show.toolbar(""ribbon"",1)")

With ActiveWindow
.DisplayHeadings = True

.DisplayHorizontalScrollBar = True

.DisplayVerticalScrollBar = True

.DisplayWorkbookTabs = True

.DisplayGridlines = True
End With

With Application
.DisplayFormulaBar = True

.DisplayStatusBar = True
End With

Este es el modulo que deseo agregar:

Sub Macro1() ' ' Macro1 Macro '
' ActiveSheet.Shapes.Range(Array("Image1")).Select

ActiveWindow.SmallScroll Down:=0

Selection.ShapeRange.ScaleWidth 1.6031183701, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.5699354692, msoFalse, msoScaleFromTopLeft ActiveWindow.SmallScroll Down:=6

Selection.ShapeRange.ScaleHeight 1.3150525088, msoFalse, msoScaleFromTopLeft ActiveWindow.SmallScroll Down:=12

Selection.ShapeRange.ScaleHeight 1.3673469388, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 0.9643088903, msoFalse, msoScaleFromTopLeft ActiveWindow.SmallScroll Down:=-39

Selection.ShapeRange.ScaleWidth 1.0376282782, msoFalse, msoScaleFromTopLeft

Range("D11").Select
End Sub

Saludos Cordiales