Sub test()
Dim myNumber As Long
myNumber = 1
MsgBox "myNumber = " & myNumber
Call increaseByRef(myNumber)
MsgBox "myNumber = " & myNumber
myNumber = 1
MsgBox "myNumber = " & myNumber
Call increaseByVal(myNumber)
MsgBox "myNumber = " & myNumber
End Sub
Sub increaseByRef(ByRef inNumber As Long)
inNumber = inNumber + 1
MsgBox "increased to " & inNumber
End Sub
Sub increaseByVal(ByVal inNumber As Long)
inNumber = inNumber + 1
MsgBox "increased to " & inNumber
End Sub