Problems in Goalseek

Hi everyone,

I have the following VB code:

Sub solver()

Dim nindex As Integer
For nindex = 1 To 10
ws1.Range("L2" & CStr(nindex)).goalseek ws1.Range("M" & CStr(nindex)).Value, ws1.Range("J2" & CStr(nindex))
Next nindex

End Sub

when I enter the excell and try to run it, I get an error reply number 424: object required.

What is the problem ?

You have not set ws1 - See code in Red

I have included 2 version s of setting ws1 - by name & sheet number

Please Login or Register  to view this content.

I think the problem is that "ws1" is not defined. Presumably this should refer to the active sheet, and therefore your code should include the following -

Dim ws1 as Worksheet
Set ws1 = Activesheet