Sub AAMacro2()
Source = Cells(1, 6)
ResultCell = Cells(2, 6).Value
Result = Cells(3, 6).Value
Range(ResultCell).GoalSeek Goal:=Result, ChangingCell:=Range(Source)
End Sub
--
Regards,
Auk Ales
* Please reply to this newsgroup only *
* I will not react on unsolicited e-mails *