Stop a running macro

**Frank e** · 09-17-2008, 04:01 PM

This was my first attemp at writing code. These lines are only for the first value. I have 20 additional InputBox statements. The reason for a method to stop the macro is many individuals running the macro and getting interrupted while inputing data.

Sub Fill01()
Worksheets("SINGLE PHASE CONSTRUCTION").Activate
    Dim UserEntry As String
    UserEntry = InputBox("What is the W/O #?", "INPUT W/O")
    If UserEntry <> "" Then Range("B2").Value = UserEntry
END SUB

**shg** · 09-17-2008, 04:27 PM

Test UserEntry for "Quit" or something similar.

**royUK** · 09-18-2008, 03:07 AM

Try this

Option Explicit

Sub Fill01()
    'Worksheets("SINGLE PHASE CONSTRUCTION").Activate
    Dim UserEntry As String
    UserEntry = InputBox("What is the W/O #?", "INPUT W/O")
    Select Case UserEntry
        Case "": Exit Sub
        Case Else: Range("B2").Value = UserEntry
    End Select
End Sub