Boa tarde!!

Eu espero que eu tenha entendido.

Adicione essa linha

cmb_modelo.AddItem Sheets("MODELO").Cells(linha, 2)

Veja

Private Sub UserForm_Initialize()
linha = 2
Do Until Sheets("marca").Cells(linha, 1) = ""
cmb_marca.AddItem Sheets("marca").Cells(linha, 1)
cmb_modelo.AddItem Sheets("MODELO").Cells(linha, 2)
linha = linha + 1
Loop
End Sub

Att

Boas AlexAndreVBA

obrigado pela ajuda, no entanto, é quase isso que pretendo, só que ao lista a Cbox2 quero que me apareça somente os nomes dos modelos relativos a Marca que no caso esta selecionado na CBox1.
Da forma que me indicou lista todos os modelos existentes no meu projeto.
Obrigado

Boa tarde Luciano!

A lógica que vc criou no método está correta, porém a coluna colocada no condicional If não corresponde (você estava comparando o valor da linha, 2... onde 2 corresponde a coluna B). Ou seja: Quando a macro fazia o primeiro Loop, ela comparava o valor da combobox (Abarth, por exemplo) com o valor que consta na coluna B (Abarth 1500 Coupé)... dessa forma, ele não encontrava modelos que correspondem ao que foi colocado na combobox, e sim os modelos (como não existe uma marca chamada Acura RLX, Alfa Romeo 164, etc etc, ele não retornava nenhum valor na combobox).

PS: Alterei seu código para o método cmb_marca_Change(). Dessa forma, sempre que o usuário mudar a marca na combobox, seu Form automaticamente procurará novamente os modelos, evitando que haja divergência entre a marca x modelo selecionado anteriormente.

Segue o upload do arquivo: http://www.sendspace.com/file/2qyuxm

Abraços,

Murilo.

boa tarde Murilo
É mesmo isso que preciso
muito Obrigado
abraço