Cellevalidering - VBA

Skal "reglen" gælden flere celler?

Noget i denne retning:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then
        If Range("A1") = "ja" Then
            If IsNumeric(Target.Value) = True Then
            Else
                Target = ""
            End If
        Else
            If Range("A1") = "nej" And Target <> 0 Then
                Target = 0
            End If
        End If
    End If
End Sub

Lige, hvad jeg søgte. Tusinde tak.

Fint - så får du et Svar
Selv tak