I have a problem with simple Excel vba code below, I just need to perform goal seek for many cell in one sheet (tsheet) and put the answer in another sheet (asheet).

Sub compute()

Worksheets("tsheet").Range("F16:Z335").GoalSeek Goal:=0, _

ChangingCell:=Worksheets("asheet").Range("F16:Z335")

End Sub

I got runtime error 1004. Is there any help.

Thanks

Similar questions and discussions