Function unique(astrArray)
Dim strResult as String
Dim strMacro as String
Dim i as Integer
strResult = |"+astrArray(0)+"|
For i =1 to Ubound(astrArray)
strResult = strResult + |:"| + astrArray(i) + |"|
Next
strMacro = |@unique(| + strResult + |)|
unique = Evaluate(strMacro)
End Function