If Statement VBA Code not working

[Dokat]

Hi,

I have below if function color coding cell e2 or d2 based on a condition.

However i can get it to work. Can someone please help.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim R1 As Range, R2 As Range, R3 As Range
    Set R1 = Range("CG1")
    Set R2 = Range("CF1")
    Set R3 = Range("E2")
    Set r4 = Range("D2")
    If R1.Value = 0 Then
        R3.Interior.Color = 6
    ElseIf R2.Value = 1 Then
        r4.Interior.Color = vbWhite
    Else
        R3.Interior.Color = 6
    End If
End Sub

 

[Thangavel]

R4 not declared as range

 

[Dokat]

Thank you

 

[Thangavel]

You need to have a practice of using Option Explicit at beginning of the code.
Kindly check out here for further inputs:http://www.homeandlearn.org/option_explicit.html

 

[Dokat]

Thanks