Carregar Combobox

Tenho uma planilha com mais de 5.000 nomes e quero inseri-los em um combobox que está em um Dialog (ao iniciar). Eu utilizava o comando FOR associado ao .AddItem(), que funciona rapidamente para um número de até 1.000 nomes, porém com mais de 5.000 deixou a inicialização lenta. Eu quero saber se há como inserir no Combobox um intervalo de células , por exemplo “A1:A5.000”, dessa forma creio que tornará a inicialização mais rápida.

@Amaral

Veja se te ajuda. Consegui dando uma pesquisa na net.

Arquivo|attachment

Perfeito!
Grato!
Vou tentar diminuir o código.
Peço desculpas por não ter respondido na data.