Заливка строки и таблицы где стоит курсор. Либр офис калк, ексель.

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("A6:N300") 'адрес рабочего диапазона, в пределах которого видно выделение
Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select 'формируем крестообразный диапазон и выделяем
Target.Activate
End Sub
макрос не воспринимает Sub. что делать?
или есть другой выход как подсветить рабочие ячейки?