Using Goal Seek in a macro

[Davidns]

I would like to create a macro that does a Goal Seek and would like the "To Value" to be based on a cell reference. It appears that the "To Value" when using Goal Seek manually requires direct input (rather than a cell), but is there a way to create a macro that runs Goal Seek and has a cell reference for the "To Value"?
Thanks in advance!
David

 

[rlv01]

One way.

Book2
	A	B	C
1	Cell to Change	To Value	Set Cell
2	101	25000	2777.5
Sheet3

Cell Formulas
Range	Formula
C2	C2	=A2*55/2

Sub Macro1()
'
' Macro1 Macro
'
'
    Range("C2").GoalSeek Goal:=Range("B2"), ChangingCell:=Range("A2")
End Sub

 

[Davidns]

perfect! Thank you very much! Much appreciated.