Goal Seek

[Guest]

Hi,

I wrote the following code to calculate IRR.

Sub IRR()
Dim X As String
X = Range("F9").Value
Range("H9").GoalSeek Goal:=X, ChangingCell:=Range("F4")
End Sub

This works fine alone, but when I put it in a Command Button and use:
Call IRR

I get the following error:

"GoalSeek Method of Range Class Failed"

Does anyone know what the problem is?

Thanks

 

[Tom Ogilvy]

Just a guess, but:
If your using Excel 97, change the takefocusonclick property of the command
button to false.

 

[Guest]

Thanks

That solution worked for me.

Just a guess, but:
If your using Excel 97, change the takefocusonclick property of the command
button to false.