For...Next Loop Example

Page 1

Example:

Dim Start As Integer

ForStart =1 To6

Do

ActiveCell.Value=InputBox(“Please enter a valid item number”, “Item Number”)

Loop Until ActiveCell.Offset(0, 1).Value <> "Not valid item

number"

ActiveCell.Offset(0, 2).Select

ActiveCell.Value = InputBox("Please enter the quantity", Quantity")

ActiveCell.Offset(1, -2).Select

DimResponse As String

Response = MsgBox("Do you have another item to invoice?", vbYesNo,“Another Item?”)

IfResponse = vbNo ThenExit For

NextStart