Function MakeList(rng As Range, Optional TK As String = "'", Optional CM As String = ",") As String
'SkipVought/2005 Jun 13
'--------------------------------------------------
' Access: N/A
'--------------------------------------------------
':this function returns a single-quoted list that can be used, for instance _
in an IN Clause in SQL _
"WHERE PART_ID IN (" & MakeList([SomeRange]) & ")"
'--------------------------------------------------
Dim r As Range
For Each r In rng
With r
MakeList = MakeList & TK & Trim(.Value) & TK & CM
End With
Next
MakeList = Left(MakeList, Len(MakeList) - 1)
End Function