Non riesco a capire perchè il seguente codice mi da errore :

Dim i As Long
Dim strTemp As String
Dim coll As New Collection

For i = 1 To 3000
strTemp = Foglio1.Cells(i, 1)
If coll.Contains(strTemp) Then
i = i
Else
coll.Add strTemp
End If
Next i

L'intento è quello di avere in coll gli elementi presenti nella colonna 1 del foglio excel SENZA ripetizioni.
Grazie

P.S. i=i è li semplicemente per il then, non ha alcuno utilità :P