Got this error when I use "loop until" in the same module

[shogot99]

Till here the info gotten is ok

Loop Until strainfo = ""
ScreenMNS.WaitHostQuiet (400)

Second process

Copy "B" & paste in "E"

Range("B2:B600").Select
Selection.Copy
Range("E2").Select
ActiveSheet.Paste
Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False




then I want to star other process from E2 and the error is on the next loop until

it say´s
" loop without do


this is what I just add


Loop Until strcontrol = ""
ScreenMNS.WaitHostQuiet (400)

[kadghar]

Till here the info gotten is ok


" loop without do


this is what I just add


Loop Until strcontrol = ""
ScreenMNS.WaitHostQuiet (400)

LOOP is for closing DO, e.g.

dim i as long
dim j as long
i=1
do 
    j = j+i
    i = i+1
loop until i > 10

this will make j = 55 (the sum from 1 to 10)

HTH

[Killer42]

Yes, the Loop statement goes at the end of a loop, not the start.