Hey Norman,

Thanks for the reply.

I am not sure a function is what I need.

Here is my code for this procedure (shortened to 3 items):

'==========>>
Option Explicit
Dim lDup As Long
Dim Rng1 As Range, Rng2 As Range, Rng3 As Range, rng As Range,
Dim ListRange As Range
Dim vSwap1 As Variant, vSwap2 As Variant, item As Variant
___________________________________________________________

Sub DefaultSet()
   On Error Resume Next
   Set wks = ThisWorkbook.Sheets("DataSheet")
   Set Rng1 = wks.Range("NamedRange1 ")
   Set Rng2 = wks.Range("NamedRange2")
   Set Rng3 = wks.Range("NamedRange3")
   On Error GoTo 0
End Sub
___________________________________________________________

Sub NonDuplicatesList(lPass As Long)
Dim rRng As Range
Dim cmBox As ComboBox
Dim i As Integer
Dim l As Long, j As Long, lRow As Long
Dim iItem As Integer, iTBIndex As Integer
Dim NoDupes As Collection

   Set NoDupes = New Collection
   
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'This is the code I tried to replace the following code with
'    Set rRng = Range("Rng" & lPass)                  
'    Set cmBox = Me.Controls("TB" & lPass)  
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       Select Case lPass
           Case 1
               Set rRng = Rng1
               Set cmBox = TB1
           Case 2
               Set rRng = Rng2
               Set cmBox = TB2
           Case 3
               Set rRng = Rng3
               Set cmBox = TB3
       End Select
   
   '\\ Load the NoDupes Collection
   
   On Error Resume Next
   For lRow = 1 To rRng.Rows.Count
       With rRng(lRow)
           If Not .Value = vbNullString Then
               NoDupes.Add .Value, CStr(.Value)
           End If
       End With
   Next lRow
   On Error GoTo 0

   '\\ Sort the collection (optional)
   j = 1
   l = 1
   For l = 1 To NoDupes.Count - 1
       For j = l + 1 To NoDupes.Count
           If NoDupes(l) > NoDupes(j) Then
               vSwap1 = NoDupes(l)
               vSwap2 = NoDupes(j)
               NoDupes.Add vSwap1, before:=j
               NoDupes.Add vSwap2, before:=l
               NoDupes.Remove l + 1
               NoDupes.Remove j + 1
           End If
       Next j
   Next l
   l = 1
   j = 1
   
   For Each item In NoDupes
       cmBox.AddItem item
   Next item
   
   i = 1
   For i = 1 To NoDupes.Count
       NoDupes.Remove 1 'Removes 1st item every cycle until empty
   Next i
   i = 1
   ' clear memory
   Set NoDupes = Nothing
   
End Sub
___________________________________________________________

Private Sub UserForm_Initialize()
   DefaultSet
   For lDup = 1 To 3
       Call NonDuplicatesList(lDup)
   Next lDup
End Sub
'<<==========

This all worked until I tried to replace the select case above as
noted (I am trying to shorted the code.  There are quite a few of the
rRng variables).  Is there anyway to replace that select case?

Please let me know, thanks.

_Minitman