Stop a running macro

**Frank e** · 09-16-2008, 04:52 PM

Hi; I have a macro that uses InputBox for the user to provide data. Once the macro is started you can't stop it until it finishes.
How can I stop the macro using the ESC key or can I assign a key to stop the macro.
Thanks

**martindwilson** · 09-16-2008, 07:07 PM

ctrl+break perhaps?

**Frank e** · 09-17-2008, 09:39 AM

Thank you that works.
Is there a way to insert a line of code to assign say, the
F4 key or other key combinations to stop the macro?

**royUK** · 09-17-2008, 09:41 AM

I would think that your code is writen so that it won't stop until there is an input by the user. Post your code, remember to use Code Tags.

**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

**Frank e** · 09-18-2008, 02:07 PM

I tested and found that if you provide a "" (blank, no answer) it terminates the macro. That works, but sometimes we need to provide a blank answers so for our application it won't work. I'll pass the word on the Ctrl+Break, key strokes.
Thanks to all for your help.