CANCEL BUTTON ON INPUTBOX

[Eddie G.]

I am using the below series of inputboxes to add data. The cancel button takes me to the next inputbox, but I want it to exit the macro. What do I need to do to make the cancel button exit the macro?


Range("B11").Value = InputBox("Enter Expense Tracking Number:")
Range("B17").Value = InputBox("Enter Your Name:")
Range("B23").Value = InputBox("Enter Your Social Security # (no dashes):")

[Mark O'Brien]

Something like this woud work:

Dim sValue As String



sValue = InputBox("Enter Expense Tracking Number:")



If sValue <> "" Then

  ActiveSheet.Range("B11").Value = sValue

Else

  Exit Sub

End If



sValue = InputBox("Enter Your Name:")



If sValue <> "" Then

  ActiveSheet.Range("B17").Value = sValue

Else

  Exit Sub

End If



sValue = InputBox("Enter Your Social Security # (no dashes):")



If sValue <> "" Then

  ActiveSheet.Range("B23").Value = sValue

Else

  Exit Sub

End If

Although to honest you would probably be better setting up a userform to take all of
the data at once. I'd be pretty PO'd if I had to use these inputboxes.

HTH

_________________
[b] Mark O'Brien

[ This Message was edited by: Mark O'Brien on 2002-05-26 13:53 ]