Automate GoalSeek

[Gunnar Lysaker]

Hi,

When I start this For
"For introw = 137 To 139" it is something wrong. Anyhelp out there?

---

Sub Macro3()
Dim introw As Integer
Dim introw2 As Integer
Dim ShtSpread As Worksheet
Set ShtSpread = Sheets("2009Analyse")
ShtSpread.Activate
Dim Gunnar As Long

Set introw = 137

Set mycell = Range("R" & "introw2")
Set introw2 = 137
For introw = 137 To 139
Range("R" & "introw2).GoalSeek Goal:=0.063,
ChangingCell:=Range("M"&introw)

introw2 = introw2 + 1
introw = introw + 1

Next introw


End Sub

 

[Michael]

Set introw2 = 137 should placed before Set mycell = Range("R" & "introw2")
otherwise you will get R and Empty