не выделяются ячейки в excel

Ответ от Алексей Матевосов (AlexM)[гуру]
Макрос, код которого ниже окрашивает выделенную ячейку. Код поместить в модуль "Эта книга"
Public c, r, ci As Integer
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If c <> Empty And r <> Empty And ci <> Empty Then
Cells(r, c).Interior.ColorIndex = ci
End If
c = ActiveCell.Column
r = ActiveCell.Row
ci = Cells(r, c).Interior.ColorIndex
Cells(r, c).Interior.ColorIndex = 4 ' 4 - индекс цвета. 4-зеленый
End Sub
Может быть вам это подойдет.