VBA/Excel/Access/Word/Data Type/IS

Is operator

   <source lang="vb">

Sub obtest()

 Dim a, b
 Set a = Sheets(1)
 Set b = Sheets(1)
 If a Is b Then
   Debug.Print "Is works correctly; a and b reference the same object"
 Else
   Debug.Print "Is doesn"t work."
 End If
 Debug.Print TypeName(a), TypeName(b)  "returns "Sheet"
 Debug.Print a.Name, b.Name            "returns the sheet name

End Sub

</source>