InputBox

[poleary2000]

I have the following code:

On Error GoTo Canceled
NewWONumber = InputBox("Enter the new work order number", "Work Order Number")
On Error GoTo Canceled
NewClient = InputBox("Enter the new client / description", "Description")
On Error GoTo Canceled
NewLocation = InputBox("Enter the new location", "Location")

How can I make it so if the user clicks Cancel on the InputBox, the sub is ended?

[Juan Pablo González]

Sub T()
Dim ans As Variant

ans = InputBox("Testing", "Testing")

If ans = "" Then
MsgBox "Pressed Cancel, exiting now"
Exit Sub
Else
MsgBox ans
End If
End Sub


Something like this ?

[Ivan F Moala]

Hi Patrick
I'd also suggest looking at the Application
inputbox method, it gives you options to
limit the user input to formulas, numbers,
text, logical value (True or False), cell reference, as a Range object etc.

[Juan Pablo González]

On 2002-04-12 13:54, Ivan F Moala wrote:
Hi Patrick
I'd also suggest looking at the Application
inputbox method, it gives you options to
limit the user input to formulas, numbers,
text, logical value (True or False), cell reference, as a Range object etc.

Sticking to Ivan's advice, when the user presses Cancel, the Application.InputBox method returns False, instead of "" (Which I prefer !)