Error of "application-defined or object-defined error" in Goalseek
sorry adjust the code little bit by removing "End With"
Sub GoalSeekTry()
Source = Cells(8, 7)
x = Cells(7, 7).Value
ActiveSheet.Range(Source).GoalSeek Goal:=-800,
ChangingCell:=ActiveSheet.Range(x)
End Sub
"Edward Wang" wrote:
Hi all,
I always have above error while running below code in the excel 2007,
please help me out!
Sub GoalSeekTry()
Source = Cells(8, 7)
x = Cells(7, 7).Value
ActiveSheet.Range(Source).GoalSeek Goal:=-800,
ChangingCell:=ActiveSheet.Range(x)
End With
End Sub
Source = X*X +X*300
Regards,
Edward
|