I am missing something here. Could somebody please look at the
following code an explain me why this behavior? ( I modified an
example posted by Chip Pearson one year ago Subject " vatPtr &
objPtr", address:
http://www.google.com.au/groups?q=ob...ftngp09&rnum=1
)

Sub AAA()
Dim BaseVar As Long
Dim Rng As Range
Set Rng = Range("A1")
Debug.Print "AAA 1: BaseVar: " & VarPtr(BaseVar)
Debug.Print "AAA 1: VarPtr: " & VarPtr(Rng), "ObjPtr: " &
ObjPtr(Rng)
BBB Rng
Debug.Print "AAA 2: VarPtr: " & VarPtr(Rng), "ObjPtr: " &
ObjPtr(Rng)
Dim rng2 As Range

'new variable pointing to the same range than variable rng"
Set rng2 = Range("A1")
Debug.Print "AAA 3: VarPtr: " & VarPtr(rng2), "ObjPtr: " &
ObjPtr(rng2) & " <--why this one does not return the same address?"

Dim rng3 As Range

Set rng3 = Rng
Debug.Print "AAA 4: VarPtr: " & VarPtr(rng3), "ObjPtr: " &
ObjPtr(rng3) & " <--this one does as expected"

End Sub

Sub BBB(ByVal r As Range)
Debug.Print "BBB 1: VarPtr: " & VarPtr(r), "ObjPtr: " & ObjPtr(r)
Set r = Nothing
Debug.Print "BBB 2: VarPtr: " & VarPtr(r), "ObjPtr: " & ObjPtr(r)
End Sub