Boa noite!!

Você está falando de um ListBox de um Form ou não?

Veja um exemplo ActiveX

Veja um modelo baseado em Lisbox em Forms, baixe o arquivo em:
http://www.sendspace.com/file/s6vc8y

Att

Boa Noite Alexandre!
É em um Form cara.

Entendi seu exemplo, só que eu queria que os dados ficasse organizados um logo abaixo do outro e não divididos em colunas dentro da ListBox
Exemplo:
A1:A13
e logo na sequencia
C13:C31

Endenteu?

Boa noite!

Seria isso...
http://www.sendspace.com/file/b7r7gc

Att

Não cara... Ainda não é bem isso.

Eu não quero uma listbox dividida em colunas.
Quero uma listbox com uma única coluna que reuna valores de 2 ou 3 lugares diferentes.

Imagine o seguinte:
Tenho a Plan1
Tenho as seguintes células com os seguintes valores:

A1 = João
A2 = Pedro
A3 = Carlos

X2 = Maria
X3 = Carla
X4 = Ana

Levando em consideração que temos aqui dois intervalos distintos A1:A3 e X2:X4 certo?
Eu quero, através da função Rowsource, juntar esses dois intervalos em uma só ListBox, para que fique assim

João
Pedro
Carlos
Maria
Carla
Ana

Entendeu?
Minha dificuldade está sendo em concatenar esses dois intervalos.
Tens alguma idéia?

Creio que por rowSource diretamente nao.
Mas experimente assim:

Private Sub UserForm_Initialize()
Dim rng As Range, i As Integer, d As Range
Set rng = Sheets("Sheet1").Range("A2:A3, B9:b10, C6:C7")

With ListBox1
    .Clear
i = 0
For Each d In rng
    .AddItem
    .List(i, 0) = d.Value
    i = i + 1
Next
End With
End Sub

Bom dia!!

Deve ser isso...
http://www.sendspace.com/file/hlg6sh

Att

Perfeito!
Os dois exemplos cairam como uma luva!

Muito Obrigado aos dois amigos!
Sempre prontos á ajudar.

Um forte abraço