>>327
ダウト。これ試してみ

Sub Test()
　　Dim objA As Object, objB As Object
　　Set objA = Range("A1")
　　Set objB = Range("B2")
　　If objA = objB Then Debug.Print "同じ"
End Sub