endless loop - using input box
Try:
partNum = InputBox("Please enter the part number", "Part Number",
0)
Sheets("Sales").Range("B1").Value = PartNum
While Sheets("Sales").Range("B1").Text = "#N/A"
Output = MsgBox("You have entered an invalid Part Number", _
vbRetryCancel, "Invalid Number")
temp = Val(Output)
If temp = vbCancel Then ' User chose Cancel.
Exit Sub 'exit and clear.
Loop
|