Public Sub Procedure1() Dim intVariable1 As Integer Dim intVariable2 As Integer
intVariable1 = 1
intVariable2 = 2
Debug.Print intVariable1
Debug.Print intVariable2 End Sub Public Sub Procedure2() Dim intVariable1 As Integer
intVariable1 = 100
Debug.Print intVariable1 End Sub Public Sub TestLocal()
Procedure1
Procedure2
Procedure1 End Sub