getting type mismatch error.

Sub goalsk()
Dim R As Long 'Row
For R = 4 To 16
Range("B" & R).GoalSeek goal:=0.42, ChangingCell:=Range("C" And R)
Next R
End Sub