common input variable for 3 called modules

[grunschlange]

Hello.

I have the following code which calls procedures in 3 separate modules:


Sub UpdateMonthlyDDFiles()
'
' UpdateMonthlyDDFiles Macro
'
'
Call OpenActiveCasesDD
Call OpenAppActivityDD
Call OpenMonthlySOPDD
End Sub

In each module is code to check data for 6 offices. I update my data monthly, so there is an InputBox line asking for the month of report for each office:

myMonth = Application.InputBox("Enter the month of report.")

This means that when I run the "UpdateMonthlyDDFiles" macro, I am entering the month of report 18 times.

Is there a way to establish one InputBox line at the start of this macro that will read the variable in each of the other modules, so that I don't have to enter the month 18 times?

Thanks.
Let me know if you need more information for this inquiry.

 

[texasalynn]

make it a public variable