Collection Add error

[reneuend]

I'm using a collection to pull unique values from an array, but I'm getting an error on the collection Add command: oList.Add a, a
Note: aDesc() assignment not shown

Dim aDesc() As String
Dim oList As Collection, a
 
...
...
...
 
   For Each a In aDesc
        If Not a = "" Then
            oList.Add a, a
        End If
    Next

Error Message:
Run-Time Error "91":
Object variable or With block variable not set

All suggestions are greatly appreciated!

 

[RoryA]

Where did you initialise the Collection object?

 

[reneuend]

Uhhmmm.. (blush)

thx rorya.