Re: code loops 1024 times not what i ask

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Try it like this

Sub test()
Dim x As Integer
x = 0
Do Until x = 200
'code to repeat
x = x + 1
Loop
MsgBox x
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Rob Hargreaves" <nrgsav@xxxxxxxxxxxxxxxxxxxxx> wrote in message news:42f5dc50_4@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
> Hi
>
> I wonder if someone can help, I am trying to repeat some code 200 times can you tell me where I am going wrong in my loop.
>
> (It is doing 1024 times!)
>
> Sub test()
> Dim x As Integer
>
> Do Until x = 200
> 'code to repeat
> x = x + 1
> Loop
>
> End Sub
>
> thanks for your help.
>
> Rob
>
>


.

Quantcast