VBA læser værdi som celle reference

Hej

Jeg er løbet ind i et dumt problem, som sikkert har en simpel løsning, jeg kan bare ikke huske/finde den.

Det er en simpel macro som skal farve 3 celler på baggrund af værdien i en tredje celle. F.eks. hvis D2 = 2 så skal celler cellerne D3-D5 blive gule. Mit problem er at en af de værdier der kan optræde i celle D2 er A1 og det kan macro'en ikke finde ud af. Jeg tror den læser A1 som en celle reference i stedet for en værdi.

Private Sub worksheet_change(ByVal target As Range)
    Dim i As Long, r1 As Range, r2 As Range
    For i = 3 To 5
        Set r1 = Range("D2")
        Set r2 = Range("D" & i & ":D" & i)
        If r1.Value = "A1" Then
            r2.Interior.ColorIndex = 45
        End If
        If r1.Value = 2 Then
            r2.Interior.ColorIndex = 27
        End If
    Next i
End Sub

Er der nogen der har en simpel løsning på det?

Mvh
Kenneth