Having a problem getting to "Range" objects to test as equivalent. In the
simplified code below after calling Sub One and then Sub Two with the same
"Range" argument the MsgBox displayed the addresses of X and C as the same,
but failed to evaluate the Object X and C as being equivalent.

What's wrong with the code?
(Of course this assumes my simplified code below accurately represents my
actual code :-)

Simplified code:

Sub One (ByVal A As Range)
Call Test(A, True)
End Sub

Sub Two(ByVal B As Range)
Call Test(B, False)
End Sub

Sub Test(ByVal X as Range, Flag As Boolean)
Static C As Range

MsgBox X.Address & " " & C.Address
' After Second Call to Test both addresses show the same value.

Select Case Flag
Case Is = True
Set C = X
Case Is = False
If X Is C Then
MsgBox "X is C"
Else
MsgBox "X is not C"
End If
End Select
End Sub

Call One(R) ' Where R is a cell reference (Range).
Call Two(R) ' Where R is same cell reference.