Dana DeLouis wrote:
Private Function UniqueItemList(InputRange As Range, _

Not sure, but you may find this simple demo using a Dictionary a little easier.
I included a demo of "Join"
Again, just to offer some ideas.

Sub TestIt()
Dim UniqueList
'Load some data...
[A1:A7] = [{"AA";"BB";"CC";"AA";"BB";"CC";"AA"}]
UniqueList = UniqueItems([A1:A7])
'An example of Join...
MsgBox Join(UniqueList, vbLf) 'May want to join with ","
End Sub

Function UniqueItems(Rng As Range) As Variant
Dim Cell As Range
Dim Dic As Variant
Set Dic = CreateObject("Scripting.Dictionary")

On Error Resume Next
For Each Cell In Rng.Cells
Dic.Add Cell.Formula, 1 '1 is Dummy value
Next Cell
UniqueItems = Dic.Keys
End Function


Dana,
Thanks for the idea. I will play around with it a little bit to see
what happens.

Thanks again.
Harry