2つのオブジェクトが同一かどうか調べる方法ってあるのかな?
たとえば

Set ObjA = ActiveCell
Set ObjB = Application.ActiveWindow.ActiveCell
If ObjA = ObjB Then …

みたいな感じで