"keepITcool" wrote in message
...

Alan,

Define your variable in a normal module
the module CAN have the option private module

Public Dim g_uni_items as collection

Public Function GetUnique(AllCells As Range, Cell As Range) as
Collection
Dim Brands_Unique As New Collection
Dim i As Integer, j As Integer
'...
set GetUnique = Brands_Unique
end Function

Then in your form or or in somewhere where you need to build the
brand list..

set g_uni_items=GetUniques(Range("a1:a100")

hth


--
keepITcool
www.XLsupport.com | keepITcool chello nl | amsterdam


Thanks for that - I will have a play!

Alan.