【VBA】Dictionaryが重複を受け付けてしまう

Question

重複しないリストを作りたくてDictionaryを使っているのですが、Existsでの判定のif文も既にあるのに入ってしまったり、Existsでの判定のif文自体抜いても重複して配列に追加されてしまいます。
どこがおかしいのでしょうか。

Dim i As Integer
Dim dic As Object

i = 1
Set dic = CreateObject("Scripting.Dictionary")
Do
    If Not dic.Exists(Sheets("マスタ").Cells(i, 1).Value) Then
        dic.Add Sheets("マスタ").Cells(i, 1), i
    End If
    i = i + 1
Loop Until Sheets("マスタ").Cells(i, 1) = ""

Answer 1

dic.Add Sheets("マスタ").Cells(i, 1), i
ではなく
dic.Add Sheets("マスタ").Cells(i, 1).Value, i
としましょう。

Comments

[kakerukyun]

ありがとうございます。
ご指摘の通りにしてみたところ、重複のエラーが出たのでon error resume nextで回避できました。
しかし本来はif文の時点で重複を弾いてほしいのですが、重複していてもこのif文の中に入ってしまうのはなぜなのでしょうか？

[DreamTheater]

keyにCellオブジェクトそのものが登録されてしまうからでは？