Laufzeitfehler 13 - Typen unverträglich

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [D2:AB372]) Is Nothing Then Exit Sub
Dim rngQuelle As Range
Dim intCounter As Integer
intCounter = 0
Set rngQuelle = Sheets("LEGENDE").Cells(1, 1)
Do While intCounter < 25
intCounter = intCounter + 1
Set rngQuelle = Sheets("LEGENDE").Cells(intCounter, 1)
With Target
Select Case .Value
Case rngQuelle.Value
.Interior.ColorIndex = rngQuelle.Interior.ColorIndex
.Font.ColorIndex = rngQuelle.Font.ColorIndex
intCounter = 25
Case Else
.Interior.ColorIndex = xlNone
.Font.ColorIndex = 1
End Select
End With
Loop
Set rngQuelle = Nothing
End Sub