if LEN(Cells(NumLinha, 1)) > 1 And NOT ISNULL(Cells(NumLinha, 1)) Then

   CboConta.AddItem Cells(NumLinha, 1)

End If

 

Roberto

Sub Carregar_Combobox()

Set Clientes = Worksheets("Nome da Planilha") 'Clientes deve ser declarado em um módulo como Worksheets

 

With Clientes

   .Activate

        .Range("Primeira celula da coluna que deseja carregar os valores").Select

 

While ActiveCell.Value <> ""

 

       Combobox1.AddItem (ActiveCell.Value)

 

    ActiveCell.Offset(1, 0).Select

 

Wend

 

End sub