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

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Krest Target
End Sub

Private Sub Workbook_Open()
  Coord_Selection = True
End Sub