Calling another sub() in VBA

[cwunderlich]

I have a sub routine that is run. Within this sub routine, a number of variables are declared and stored with certain values. I then would like to call a second sub routine, let's call it "SecondSub".

Within the first sub routine, I have the code in place to call the SecondSub (Call SecondSub).

My question is this: what needs to be done for those variables that were stored in the original sub routine to be able to be used in the SecondSub that is called by the original?

Thanks,

 

[jproffer]

Declare them outside the procedures

Public Var1 as Long
Public Var2 as String
 
Sub RunSub1
 
'...code
'...code
'...code
 
Call SubRun2
End Sub
 
Sub SubRun2
'will now have access to Var1 and Var2 as defined in SubRun1
End Sub

 

[cwunderlich]

I figured it was something simple like that... I knew I had done it before, but just couldn't remember what I did.... thanks a lot!

 

[vaskov17]

if you are declaring the variables in the first sub then use this:

Sub subOne()
    Dim var1 As Long
    Dim var2 As Long
    
    'code
    
    subTwo var1, var2
End Sub

Sub subTwo(ByVal v1 As Long, ByRef v2 As Long)
    'code
End Sub

note the "ByVal" and "ByRef" in this line "Sub subTwo(ByVal v1 As Long, ByRef v2 As Long)"

ByVal means that only the value is passed to subTwo and subTwo cannot change the value

ByRef means that a reference is passed to subTwo so subTwo can change the value of the variable and subOne will have access to the changed value