How do I stop a Macro after "Cancel" is chosen in an input box?

**mccreaso** · 05-10-2007, 10:41 AM

Hi, try:

  
If Ans = "" Then
      End
Else
      '...statements
End If

HTH,

mccreaso

**mccreaso** · 05-10-2007, 10:43 AM

Originally Posted by mccreaso

Hi, try:

  
If Ans = "" Then
      End
Else
      '...statements
End If

HTH,

mccreaso

Correction:

  
If UserEntry1 = "" Then
      End
Else
      '...statements
End If

**stevebriz** · 05-10-2007, 10:51 AM

Another Example:

msg = ("Enter an account number to highlight.")

   UserEntry1 = Application.InputBox(msg, , , , , "", , 1)
   If UserEntry1 <> False Then
  Ans = MsgBox("Would you like to highlight an additional account?", vbYesNo)
   Select Case Ans
       Case vbNo
           Worksheets("R1").Select
           Counter = 0
           EndCounter = 20
           Do Until Counter = EndCounter
               Range("F6:F28").Select
               Selection.FormatConditions.Delete
.........
 End If
End Sub