Функция выделения ячеек в excel VBA

[DSorokin]

Только начал, изучать VBA, а на работе нужно очень срочно, сотворить что-то типа:

Допустим в excel есть формула:
Если (h18>0;то вот здесь надо прописать функцию которая заливает эту ячейку красным цветом; то соответственно оставляет ее с текущим цветом )
И наоборот
Если (g18>0;то вот здесь надо прописать функцию которая снимает заливку; то соответственно оставляет ее с текущим цветом)

Если кто сможет мне подсказать буду очень благодарен

[sashonk]

Sub main()
    
      If Cells(18, 7).Value > 0 Then
            Cells(18, 7).Interior.ColorIndex = -4142
        Else
           Cells(18, 7).Interior.Color = RGB(150, 40, 80)
     End If
     
     If Cells(18, 8).Value > 0 Then
            Cells(18, 8).Interior.Color = RGB(190, 190, 20)
        Else
            Cells(18, 8).Interior.ColorIndex = -4142
     End If
End Sub