Boa tarde!!

Eu não entendi, você só dua combobox no seu arquivo modelo e tem 60 textbox

Se puder esclarecer melhor sua dúvida.

Att

As TextBox nao tem problemas.

O que preciso é que as 20 combobox sejam preechidas com a lista que existe na folha 2 ou tem o nome Ref.

Nao tem 20 combobox no seu modelo.

Versão antiga

De qualquer modo eu nem no segundo estva a conseguir. Mas segue o ficheiro actual

Se entendi, troque as rotinas que se encontram neste ultimo anexo pela a abaixo :

Private Sub UserForm_Initialize()
    Call PreencheCombos
End Sub

Sub PreencheCombos()
    Dim OCOLLECTION As New Collection
    Dim VARVALUE As Variant
    Dim i, ULTLINHA As Long
    Dim QdeCombos As String
    
    ULTLINHA = Folha2.Range("A65536").End(xlUp).Row

    On Error Resume Next
    
    'Adicionamos cada valor da plan na coleção
    For Each VARVALUE In Folha2.Range("A2:A" & ULTLINHA)
        OCOLLECTION.Add CStr(VARVALUE), CStr(VARVALUE)
    Next
    
    'Quantidade de ComboBox no Formulário
    QdeCombos = 20
    
    'Para cada item na coleção preenchemos os Combobox
    For i = 1 To OCOLLECTION.Count
        'Preenchemos os combobox 1 ao 20
        'Todos os Comboboxm teem de estar
        'com o nome PADRÃO - ComboBox e sequencia numérica correta
        
        For x = 1 To QdeCombos
            Controls("Combobox" & x).AddItem OCOLLECTION.Item(i)
        Next
        
    Next

End Sub

Mauro perfeito

Muito obrigado!!