VBA Message box to popup and allow user to work within the sheet, upon closing start the code again

[Knockoutpie]

I am automating a report, but there are a few sections which would be easier to manually adjust than to automate.

I have a popup box right now that pauses the code and allows the user to make manual adjustments, upon closing the box the code will continue.

I need this to happen 3-4 times now, and i'm getting a duplicate scope error.

Any one have a solution or alternatives?

' Pause the script for manual input
  UserForm1.Label1 = "Make some changes, close or click OK when done"
'  MsgBox "Make changes..."

  On Error GoTo Continue
  UserForm1.Show vbModeless
  Do While Not UserForm1.Visible
    DoEvents
  Loop
  Do While UserForm1.Visible
    DoEvents
  Loop
Continue:

'  MsgBox "Let's go!"

 

[rlv01]

I'm not sure that you need those loops at all. DoEvents does not provide much benefit if all the user is doing is changing cells on the spreadsheet. But you can at least get rid of one.

    On Error GoTo Continue
    UserForm1.Show vbModeless
    Do While UserForm1.Visible
        DoEvents
    Loop
Continue:

 

[Knockoutpie]

I'm not sure that you need those loops at all. DoEvents does not provide much benefit if all the user is doing is changing cells on the spreadsheet. But you can at least get rid of one.

    On Error GoTo Continue
    UserForm1.Show vbModeless
    Do While UserForm1.Visible
        DoEvents
    Loop
Continue:

This is the same error i've been running into.

 

[rlv01]

You have not shown me enough code to be sure, but I think you are using the label "Continue:" more than once in the same sub. You can't do that.

 

[Knockoutpie]

Oh, thank you, I see, I have to adjust this is using more than once..
On Error GoTo Continue
to
On Error GoTo Continue1
to
On Error GoTo Continue2

etc etc

You have not shown me enough code to be sure, but I think you are using the label "Continue:" more than once in the same sub. You can't do that.

 

[rlv01]

Oh, thank you, I see, I have to adjust this is using more than once..
On Error GoTo Continue
to
On Error GoTo Continue1
to
On Error GoTo Continue2

etc etc

I doubt referencing a label more that once would do it. It's declaring it more than once in the same sub that's a problem

 

[Knockoutpie]

I doubt referencing a label more that once would do it. It's declaring it more than once in the same sub that's a problem
View attachment 94851

Sorry, below example.
    On Error GoTo Continue1
    UserForm1.Show vbModeless
    Do While UserForm1.Visible
        DoEvents
    Loop
Continue1:
'''''''''
    On Error GoTo Continue2
    UserForm1.Show vbModeless
    Do While UserForm1.Visible
        DoEvents
    Loop
Continue2:

instead of''''''''''''''''''''''''''''

    On Error GoTo Continue
    UserForm1.Show vbModeless
    Do While UserForm1.Visible
        DoEvents
    Loop
Continue:
''''''''''''''
    On Error GoTo Continue
    UserForm1.Show vbModeless
    Do While UserForm1.Visible
        DoEvents
    Loop
Continue: