мне, как человеку только начавшему работу в Visual Basic, еще трудно.
помогите с задачей:
суть в закрашивании ячейки а1 определенным цветом в зависимости от вводимого числа.

Sub example_01()
Dim a As Integer
a = Range("a1").Value
If a > 0 Then
Range("a1").Interior.ColorIndex = 4
Else
If a < 0 Then
Range("a1").Interior.ColorIndex = 3
Else
If a = 0 Then
Range("a1").Interior.ColorIndex = 5
End If
End If
End If
End Sub

Нужно переделать, чтобы: 1)программа действовала на любую ячейку 2)программа действовала автоматически, без нажатия RUN.