Запуска макроса для выделения при открытии документа - VBA

Формулировка задачи:

Доброго времени суток. Подскажите с таким вопросом. Есть код для выделения координат выделенной ячейки. Он запускается при нажатии Alt+F8 и выборе соответствующей процедуры. Как можно сделать так, что бы он запускался самостоятельно, при открытии документа? Заранее спасибо.

                    Листинг программы
                
 
                        
                          
                    
Dim Coord_Selection As Boolean   'глобальная переменная для вкл/выкл выделения
Private Sub Workbook_Open()
    ThisWorkbook.Worksheets.Coord_Selection = True
End Sub
Private Sub Worksheet_SelectionChange()
    Dim WorkRange As Range
 
    If Target.Cells.Count > 1 Then Exit Sub  'если выделено больше 1 ячейки - выходим
    If Coord_Selection = False Then Exit Sub    'если выделение выключено - выходим
 
    Application.ScreenUpdating = False
    Set WorkRange = Range("A1:CP500")    'адрес рабочего диапазона, в пределах которого видно выделение
    Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select   'формируем крестообразный диапазон и выделяем
    Target.Activate
End Sub

Решение задачи: «Запуска макроса для выделения при открытии документа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Coord_Selection As Boolean   'глобальная переменная для вкл/выкл выделения
 
Sub Krest(Target As Range)
    Dim WorkRange As Range
    If Target.Cells.Count > 1 Then Exit Sub  'если выделено больше 1 ячейки - выходим
    If Coord_Selection = False Then Exit Sub    'если выделение выключено - выходим
    Set WorkRange = Range("A1:CP500")    'адрес рабочего диапазона, в пределах которого видно выделение
    Application.EnableEvents = False
    Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select   'формируем крестообразный диапазон и выделяем
    Target.Activate
    Application.EnableEvents = True
End Sub