cancel the loop

[Guest]

I have set up a loop to prepare selected reports for appropriate location(s).
When I have printed all of the reports I want and select "CANCEL", how do I
set up the program to cancel the loop?

'
Dim iResult As Integer

Sheets("Mail List").Select
Do
iResult = InputBox("Please enter the Store Number:")
Range("a15").Value = iResult
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Loop

End Sub

Thanks in advance!!!

 

[Dave Peterson]

do
iresult = inputbox(...)
if trim(iresult) = "" then
exit do
end if
'rest of stuff
loop

 

[Ron de Bruin]

Try this

You can also use the test if the inputbox have a value if you want
See two commented code lines in the macro

Sub test()
Dim iResult

Sheets("Mail List").Select
Do
iResult = Application.InputBox("Please enter the Store Number:")
If iResult = False Then Exit Do
'If iResult <> "" Then
Range("a15").Value = iResult
ActiveWindow.SelectedSheets.PrintOut preview:=True
'End If
Loop

End Sub