Boa tarde Amigo
Não sei se é exatamente o que vc precisa, mas segue:

Private Sub cboCondicoes_Enter()

lblmsg.Caption = " Escolha a forma de pagamento"
' os dados ficam na planilha chamada "Condicoes"
    With Worksheets("condicoes")
    cbocondicoes.List = _
    .Range(.Cells(2, 2), .Cells(.Range("b1").CurrentRegion.Rows.Count, 2)).Value
    End With
End Sub

Ou no Initialize:

    
    With Cboano ' cbo chamada CboAno
    .AddItem "2017"
    .AddItem "2018"
    .AddItem "2019"
End With
    

Neri,
Agradeço pela ajuda,porém apliquei e nada aconteceu.

Poderia aplicar dentro do próprio arquivo por favor?

freitasag,

Boa tarde!

Não entendi o que você quer dizer com:

não consigo colocar os dados "FONTE" como lista no combobox

O que é que você quer colocar e aonde? Seja mais específico. Colocar os dados da aba FONTE... que dados? Que colunas, Que linhas? Colocar aonde? Que controles? Que combobox? Que listBox? Qual o nome dos controles? Como se dá o processo?

freitasag, veja esse 3 exemplos que fiz e se te ajuda.

Private Sub UserForm_Initialize()
Dim s As Integer
   With Planilha3
    i = Planilha3.UsedRange.Rows.Count
    Me.ComboBox3.RowSource = "c2:c" & i
    Me.ComboBox4.RowSource = "d2:d" & i
    Me.ComboBox5.RowSource = "e2:e" & i
    End With
    
End Sub

Muito Obrigado Teleguiado.

Funcionou perfeitamente.

att.,

Alexandre