Macro with Yes/No Calling Another Yes/No Macro - How to Disable the 2nd Yes/No

[Snake Eyes]

I have two macros that each have a Yes/No text box.
I would like to call Macro 2 from within Macro 1 however, in doing so, eliminate the Yes/No portion of Macro 2.
The catch is that Macro 2 needs to retain it's own Yes/No VB code since it can be run on it's own as well.

As you can see in Macro 1, I will ultimately be using the solution to actually call 3 macros from Macro 1.

Macro 1:

Sub ClearALLSection_11()

'
' ClearALLSection_11

  Application.GoTo Reference:=("Section11_Position, Section11_Options, Section11_OptionsNotes")
  
       
' YesNoMessageBox()
Dim Answer As String
Dim MyNote As String

'Place your text here
    MyNote = "Do you really want to Clear the ALL Entries in Section 11?"

'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Clear All Entries in Section 11?")

    If Answer = vbNo Then
        Application.GoTo Reference:="Section11_PositionHome"
    End If
    
    If Answer = vbYes Then
        Selection.ClearContents

Macro 2

Sub ClearPosition_11()

'
' ClearPosition_11 Macro

    Application.GoTo Reference:="Section11_Position"

   
' YesNoMessageBox()
Dim Answer As String
Dim MyNote As String

'Place your text here
    MyNote = "Do you really want to Clear the POSITION Entries in Section 11?"

'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Clear POSITION Entries in Section 11?")

    If Answer = vbNo Then
        Application.GoTo Reference:="Section11_PositionHome"
    End If
    
    If Answer = vbYes Then
        Selection.ClearContents

 

[Micron]

One way: add a parameter to the called sub and from the first sub, pass a value (e.g. Boolean False or True) to it. In the called sub check for the value of the passed parameter. If it's False, don't run the part you don't want to run. If True, then run (all?) of it.

2nd sub:

Sub ClearPosition_11(bolMsg As Boolean)
If bolMsg = True Then msgbox "your message" <<if False, no message and code inside the If block doesn't execute

1st sub

If [I]some condition[/I] Then 
   ClearPosition_11, True << pass True to 2nd sub
Else
   ClearPosition_11, False << pass False to 2nd sub
End If

You could also use module level variable so that each procedure has access to it. That might be better if you have several interdependent subs.

 

[Snake Eyes]

Thanks for the code Micron.
I'm not the best with the how to insert your code properly into the two macros.
1) Not sure if the code after the "<<" is you giving me information or if it's part of the code to run.
2) I don't see where the "call" for the 2nd macro is in your code. Should I add it or are the lines...

ClearPosition_11, True << pass True to 2nd sub

calling of the macro?

I've tried various entries of your code where I believe it goes but I'm just not getting it.
I appreciate the assistance.

 

[Micron]

Yes those are notes and instructions which I should have commented out. I intended to just use general text but switched to code tags to maintain indentation & forgot. I didn't suggest how to call anything because there's no call in either of your subs so I have no idea where any calls would go. BTW, message box returns a number so it's better to Dim your result variable as an integer and use the return number values or you can use vb constants (e.g. vbYes) instead.