Loop problem

[rocket0612]

I am writing a macro for excel to interact with Attachmate and have problems ith a lopp I'm try to do. Heres the code:


Date1 = Range("C20"): Date1 = Format(Date1, "ddmmyy")
Date2 = Range("c22"): Date2 = Format(Date2, "ddmmyy")

If Range("C20") <> "" Then Quote1 = True
If Range("C22") <> "" Then Quote2 = True

If Quote1 = True Then Quotetype1 = Date1 Else Quotetype1 = ""
If Quote2 = True Then Quotetype2 = Date2 Else Quotetype2 = ""


QuoteArray = Array(Quotetype1, Quotetype2)
quoteletterArray = Array(Quotetype1, Quotetype2)
npddarray = Array("", "")
QualArray = Array(qual1, qual2)

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'ScrnChk = MyScreen.GetString(2, 3, 7)
'If ScrnChk <> "BRPEIMA" Then End: MsgBox ("ended at proj")

'two dates, do 1st date and then loop for second adte
For quoteroutine = 0 To 1
If QuoteArray(quoteroutine) = "" Then GoTo Notes

'run for date 1 for the 3 policiy numbers
For polroutine = 0 To 2
PolNo = polarray(polroutine)
If PolNo = "" Then GoTo Quotevaluesflf

Sess0.Screen.Moveto 21, 68
Sess0.Screen.SendKeys ("PIB")
Sess0.Screen.SendKeys ("<Enter>")
Sess0.Screen.WaitHostQuiet (g_hostsettletime)



The scenario is, a user can input up to 3 policy numbers for the system perform valuations. You have the option to have 2 valuation dates (date 1 & date 2). What I am trying to do is get the 3 policies to run a valuation for the first date and then go back and do the same for the second date.

I am getting the error on the second FOR statement advbising the statement is already in use. I am trying to do like a double loop to do this, make sense!!

any help would be appreciated.

[DKenny]

You have 2 FOR statements in the code you posted, but no NEXT statements at all. Can you repost and include the entire procedure?