call a macro, then go back to the original sub

[288enzo]

I have multiple Subs for users to choose from, each one is specific to their territory.

I also have one Sub that runs an InputBox, entered data is used later in the specific territory Sub.

Option Explicit
Sub Quarter()
Dim strQtr As String
strQtr = InputBox("enter Quarter here (1,2,3,4)")

End Sub

In each of my other Subs there is a line to Call Quarter, once Quarter runs, how do I get the marco to return back to where it left off, the line after Call Quarter?

Thank you,

 

[Joe4]

You don't need to tell it to do anything.
If you have macro B called from macro A, it will continue on with macro A after finishing macro B automatically (unless you have something in macro B to stop the whole thing, like exiting Excel).

 

[EXCEL MAX]

If you have this procedure in the standard module and you want to return value from input box to some other procedure
you can do it following this example.
First you need to have variable declared as public in the standard module.
This variable need to be initialized to be active,
so first go with code to module with this variable to activate it.
Example...
Put this in the standard module...

Option Explicit

Public strQtr As String 'declare variable as public

Sub InitializeVariables()
    'initialize empty sub to collect public variable
End Sub

Sub Quarter()

    strQtr = InputBox("enter Quarter here (1,2,3,4)")

End Sub

And this in the UserForm module...

Private Sub CommandButton1_Click()
        
    Call Quarter
    MsgBox strQtr
        
End Sub

Private Sub UserForm_Initialize()
    
    Call InitializeVariables
    
End Sub

 

[288enzo]

You don't need to tell it to do anything.
If you have macro B called from macro A, it will continue on with macro A after finishing macro B automatically (unless you have something in macro B to stop the whole thing, like exiting Excel).

I'm so embarrassed, I knew that. I did have a birthday on Sunday, perhaps this is a sign of old age.