Do Until Inputbox = loop count
Hi all,
I cannot work out why this isn't working. The user inputs a number from 1
to 4 into an inputbox, and I want the macro to loop for this number of times
(if 1 is entered, an if statement avoids this loop).
My code is as below, but the loop just keeps on going for any number
entered...
Dim Message, Title, Default
Message = "Please enter the number of the current quarter (1 to 4)"
Title = "Enter Quarter"
Default = "1"
qvalue = InputBox(Message, Title, Default)
Do Until QCount = qvalue
QCount = QCount + 1
'my code here
Loop
Any ideas?
Thanks,
Ewan.
|