Bucle para llenar varios listbox

Hola amigos: Acudo nuevamente para solicitar su ayuda, tengo el siguiente codigo que llena un listbox llamado T3 y lo ordena alfabeticamente y todo funciona bien pero tengo otros listboxs T4, T5,....T10 que quisera llenarlos con el mismo rango de datos, ¿es posible hacerlo con un bucle? o de que otra forma puedo hacerlo para no tener que repetir el mismo codigo, tantas veces como listbox tengo que llenar. Espero haberme dado a entender.

saludos

Private Sub CommandButton1_Click()

Set SourceSheet = Worksheets("sustratos")

    LastRow = SourceSheet.Cells(Rows.Count, 2).End(xlUp).Row

    On Error Resume Next

    Set Coll = New Collection


    With T3

    .Clear

    For Each Cell In SourceSheet.Range("b2:b" & LastRow)

    If Len(Cell.Value) <> 0 Then

    Err.Clear

    Coll.Add Cell.Text, Cell.Text

    If Err.Number = 0 Then .AddItem Cell.Text

    End If

    Next Cell


 blnUnsorted = True

 Do

 blnUnsorted = False

 For i = 0 To UBound(.List) - 1

 If .List(i) > .List(i + 1) Then

 temp = .List(i)

 .List(i) = .List(i + 1)

 .List(i + 1) = temp

 blnUnsorted = True

 Exit For

 End If

 Next i

 Loop While blnUnsorted = True

 .ListIndex = 0

 End With

End Sub

[/CODE]