I'm fairly new to VBA Code and am stuck. I want to run a Macro (I'll refer to it as "Call Macro" in this post) that calls about 10 different Macros. The Call Macro works fine, as does the separate Macros it calls. What I'm trying to do is create a Procedural Macro linked to a button so I can click the button and receive Message Boxes to remind me to do certain things before continuing with the Call Macro. The button works fine but the Procedural Macro is hanging me up. There are four different steps I need to make sure are completed before I run the Call Macro. So I want the MsgBox to have a reminder message and a "Yes" and "No" button. If I click Yes, I want it to call the next reminder (there are 4 in all). If I click No, I want another MsgBox to show and to end the Macro. In the two macros that follow, the first works fine. The second, I have written and rewritten too many times to count, experimenting with If-Then, If-Then-Else, If-Then-IfElse, etc. but have been unsuccessful at getting the exact results I want. Please help!
Sub DOUBLE_CHECK_PROCEDURE1()
'
'
'
'
Dim BlanksAndSingles As String
BlanksAndSingles = MsgBox("Have all blanks been zeroed and single line items been doubled?", vbYesNo, "NO BLANKS")
Call DC_PROCEDURE1_IF
End Sub
Sub DC_PROCEDURE1_IF()
'
'
If BlanksAndSingles = vbNo Then
MsgBox "Make Necessary Corrections, then Return Here"
Exit Sub
End If
If BlanksAndSingles = vbYes Then
Call DOUBLE_CHECK_PROCEDURE2
End If
End Sub











LinkBack URL
About LinkBacks
Register To Reply

Bookmarks