Hi

Im working on a goalseek macro and I am trying to Change the 'Goal' value based on relative cells such that if the active cell is B4 when the macro is run, the Goal would be the values entered in A3.. and similarly if the macro is run again on cell C5 the goal would be the value entered in B5.

Ive come up the below VBA code but the way its currently written, the highlighted parameters on the second line agter 'Goal:' inputs a blank as the goal which it shouldnt. This makes me think that the syntax is wrong.

As you've gathered by now, im a newbie!

Thanks in advance for your help

Sub Macro11()
Sheets("Sheet1").Range("C16").GoalSeek Goal:=ActiveCell.FormulaR1C1 = "=RC[-1]", ChangingCell:=Sheets( _
"Sheet1").Range("C3")
Sheets("Sheet1").Select
Range("C3").Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub