How To Use Variables Across Multiple Sub Routines (VBA)

[JoshuaKC29]

I was wondering if there was anyway to carry variables across multiple sub routines. What I want to do is set a macro to a button, and I want to use an integer to make small changes to the main sub routine.

I know I can accomplish this by making the button change a cell in excel, then making reference to that cell and setting it to 0 when completing the sub routine. But I'd prefer to do this all within VBA is possible.

An example of what I'd like to accomplish is declaring BtnValue as an Integer. When I press a button, it sets the BtnValue to X then calls the main subroutine which produces a message.

If X = 1 then message 1 is sent.
If X = 2 then message 2 is sent.

Just an idea I had in a my sleep and I want to know if its possible.

 

[Kyle123]

Yes, you use parameters like this:

Public Sub MyMacro()
    MacroClick 2
End Sub

Public Sub MacroClick(ByVal inValue as Long) 
    Msgbox inValue
End Sub

 

[Macropod]

Two ways:
1. Declare them outside any sub.

Option Explicit
Dim ANum as Long, BTxt as String

Sub Main()
ANum = 1
BTxt = "A"
Call Slave
End Sub

Sub Slave()
Msgbox ANum & vbCr &  BTxt
End Sub

2. Pass them from one sub to the next

Sub Main()
Dim ANum as Long, BTxt as String
ANum = 1
BTxt = "A"
Call Slave(ANum, BTxt)
End Sub

Sub Slave(XNum as Long, YTxt as String)
Msgbox XNum & vbCr & YTxt
End Sub

 

[JoshuaKC29]

Much thanks to all,

I thought I was using the methods posted in this forum but I wasn’t getting the desired result. That being said, when I got to work those “same methods” worked. I must have been half asleep given it was about 5am when I was looking into this.