help with macro syntax

[Steve]

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

 

[Gary''s Student]

replace:
Range("B" & R).GoalSeek goal:=0.42, ChangingCell:=Range("C" And R)
with:
Range("B" & R).GoalSeek goal:=0.42, ChangingCell:=Range("C" & R)

 

[Steve]

thank you. i should have caught that.

replace:
Range("B" & R).GoalSeek goal:=0.42, ChangingCell:=Range("C" And R)
with:
Range("B" & R).GoalSeek goal:=0.42, ChangingCell:=Range("C" & R)