Sub sSub() Dim intVar1 As Integer Dim intVar2 As Integer intVar1 = 5 intVar2 = intVar1 intVar1 = 10 Debug.Print intVar1 'Prints 10 Debug.Print intVar2 'Prints 5 End Sub