Excel VBA Макросы. Закрасить ячейку в зависимости от значения в этой ячейке.

[Посетитель]

Если в ячейке A1 положительное число, то закрасить ячейку A1 в зелёный цвет, если отрицательное число, то в красный, если ноль, то не закрашивать.

[Администратор]

Sub Макрос()
   
    If Range("A1").Value > 0 Then
        Range("A1").Interior.Color = 9359529
    ElseIf Range("A1").Value < 0 Then
        Range("A1").Interior.Color = 8696052
    ElseIf Range("A1").Value = 0 Then
        Range("A1").Interior.Pattern = xlNone
    End If
       
End Sub

[Посетитель]

Спасибо!