Message Box that let's you decide when to run a block of code

[VBAProIWish]

Hello All,

I have code (provided by VoG, thanks again VoG!) within a large procedure that I don't always want to run.
Can I pop up a message box right before that block of code that says...

"do you want to add the numbers to the master report?"

If I say yes, the code runs, If I say no, is simply skips only that part of the code and continues on with the rest of the code in the procedure.


Nutshell Version,

regular code
regular code
[COLOR=red][B]message box "Do you want to add the numbers to the master report? (yes or no)[/B][/COLOR]
[B]VoG's code below runs ONLY if "yes" is selected[/B]
Dim Rng As Range
Dim wb As Workbook
Set wb = ActiveWorkbook
Set Rng = Range("a1").CurrentRegion
Set Rng = Rng.Offset(1, 0)
Set Rng = Rng.Resize(Rng.Rows.Count - 1)
Rng.Copy
On Error GoTo puke
    Windows("History.xlsm").Activate
 
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
 
 
Windows("History.xlsm").Visible = False
 
wb.Activate
puke:
END OF VoG's code 
 
regular code (this code is continued on whether the message box is skipped or not)
regular code

Can this be done?

Thanks much!

 

[VoG]

Try

If MsgBox("Do you want to add the numbers to the master report?", vbYesNo + vbQuestion) = vbNo Then Exit Sub

 

[VBAProIWish]

Thanks for the quick reponse VoG. How does the routine know exactly where to restart with the same module?

So..

Line 1 Msg box code you just provided me
Line 2 your old code
Line 3 continue with rest of code in the module (whether yes or no is selected).

Thanks

 

[VoG]

If you click No the code exits. If you click Yes the code carries on from the line below the MsgBox line.

 

[VBAProIWish]

Thanks VoG

Ok, I have code AFTER your code within the same module that still needs to run whether "yes" OR "no" is selected. I just want your particular code to simply be ignored if "no" is selected.

After I ran it, the message box came up and I said "no", the macro then stopped and it didn't continue to run any more of code in the module. I still need it to run the code after your code.

Hope that makes sense

 

[VoG]

Try

If MsgBox("Do you want to add the numbers to the master report?", vbYesNo + vbQuestion) = vbNo Then GoTo Puke

 

[VBAProIWish]

Puurfecto

Works perfectly.

Thanks much VoG!