Ou até mesmo..

se alguém souber como colo uma seleção de nomes em varios textbox enfileirados um embaixo do outro tbm ajudaria

ex.. copie de uma determinada planilha da coluna A os valores de A1 até A4

e quero copiar esses valores em varias textbox de uma vez só..

textbox1
textbox2
textbox3
textbox4

wfranca, boa noite!

Já tentou usar a clipboard (área de transferência) ?

Adapte o código abaixo e veja se funciona :

Private Sub addNomes()
    Dim ultimalinha As Integer
    Dim DataObj As New MSForms.DataObject 'cria um novo DataObject
    ultimalinha = ActiveSheet.UsedRange.Rows.Count 'conta o total de linhas usadas na planilha atual
    
    If ultimalinha = 1 Then
        Range("A1").Select 'seleciona a primeira linha limpa no range
    Else
        If ultimalinha >= 2 Then
            Range("A" & ultimalinha + 1).Select 'seleciona a primeira linha limpa no range
        End If
    End If
    DataObj.SetText Userform1.TextBox1.Text 'seta o valor do textbox
    DataObj.PutInClipboard 'coloca os dados na área de transferência
    DataObj.GetFromClipboard 'Obtém os valores da clipboard
    ActiveSheet.Paste 'cola os dados da área de tranferência
    Cells(ActiveSheet.UsedRange.Rows.Count + 1, "A").Select 'seleciona a próxima linha limpa no range
    DataObj.Clear 'limpa a área de transferência
End Sub

[]s