Dim Coord_Selection As Boolean   'Глобальная переменная вкл./выкл. подсветки
 
Sub Selection_On()   'вкл. подсветки
    Coord_Selection = True
End Sub
 
Sub Selection_Off()  'выкл.подсветки
    Coord_Selection = False
End Sub
 
'Основная процедура выполняющая выделение
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    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("A2:M600")    'Адрес рабочего диапазона работы выделения
    Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select   'Формируем крестообразный диапазон и выделяем
    Target.Activate
End Sub