Выделение цветом активной ячейки в excel

[ksmspb]

Активная ячейка по умолчанию белого цвета. Надо сделать ее любым другим цветом. В нете нашел аналогичную задачу решали написанием макроса:
--------------------------------
Dim sActiv As Variant
--------------------------------
Private Sub Worksheet_Activate()
sActiv = "$A$1"
End Sub
--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(sActiv).Interior.ColorIndex = 0
sActiv = ActiveCell.Address
Range(sActiv).Interior.Color = vbRed
End Sub

скопировал, вставил, ничего кроме сдвига текста в ячейках и невозможности двигать его не получил. Может что-то не так сделал? Помогите пожалуйста!

[pivas]

Посмотрите здесь.