Pessoal, Boa Tarde!
Não entendo muito de VBA e estou começando a aprender algumas coisas, vocês poderiam me ajudar na dúvida abaixo?

Tenho uma planilha chamada "TRIAGEM" e nela consta dados comuns: Nome, Endereço, Telefone, Cidade...
Tenho agora uma outra planilha chamada " MAPEAMENTO" onde nela consta só o cabeçalho contido na planilha anterior, ou seja, sem os dados.

Criei um formulário na planilha "MAPEAMENTO" e coloquei um botão PESQUISAR.
O que eu preciso?

Quando eu clicar neste botão PESQUISAR e digitar um dado como por exemplo um determinado nome ele vá na minha planilha de TRIAGEM que é onde estão os dados, e preencha as demais informações: Endereço, Telefone, Cidade...

PS. Esta planilha de TRIAGEM ela poderá estar aberta e em uso por qualquer usuário ou até mesmo poderá estar fechada. O código precisa fazer esta busca independente da planilha estar aberta ou não.

Num segundo momento, depois que ele achou os dados pesquisados, eu tenho no meu formulário campos adicionais que eu vou preencher depois e ao clicar no botão INCLUIR DADOS ele inclua tanto as informações pesquisadas na planilha "TRIAGEM" como as informações acrescentadas pelo formulário em uma nova aba "Plan2" por exemplo dentro da planilha "MAPEAMENTO".

Confuso né? rsrsrs

Mas eu preciso muito disso e ficarei imensamente agradecida se puderem me ajudar.

Este é o codigo que comecei na planilha "MAPEAMENTO" no formulário e botão PESQUISAR - mas não está funcionando

Private Sub ButtonPesquisarNOME_Click()
 Dim xl As New Excel.Application
    Dim xlw As Excel.Workbook
    'Abrir o arquivo do Excel
    Set xlw = xl.Workbooks.Open("C:UsersgraciDesktopPLANILHA DE TRIAGEM V2.2016.xlsm")

    ' definir qual a planilha de trabalho
    xlw.Sheets("Banco de Dados").Select
    
    While ActiveCell <> ""
    
    If TextBox1.Text = ActiveCell Then
    TextBox2.Text = ActiveCell.Offset(0, 1).Value
    TextBox3.Text = ActiveCell.Offset(0, 2).Value
    
    End If
    ActiveCell.Offset(1, 0).Activate
    Wend

    ' Fechar a planilha sem salvar alterações
    ' Para salvar mude False para True
    xlw.Close False

    ' Liberamos a memória
    Set xlw = Nothing
    Set xl = Nothing
End Sub