Bom dia!!

Um exemplo:

Sub Botão1_Clique()

    Dim b As Variant
    b = Application.GetOpenFilename("xls-files,*.xls", _
    1, "Selecione Para Abrir o Arquivo", , False)
    If TypeName(b) = "Boolean" Then Exit Sub
     
    ActiveSheet.TextBox1.Text = b
     
End Sub

Bom dia!!

Um exemplo:

Sub Botão1_Clique()

    Dim b As Variant
    b = Application.GetOpenFilename("xls-files,*.xls", _
    1, "Selecione Para Abrir o Arquivo", , False)
    If TypeName(b) = "Boolean" Then Exit Sub
     
    ActiveSheet.TextBox1.Text = b
     
End Sub

Oi Alexandre, muito obrigado mais uma vez, não consegui implementar, de qualquer forma o diálogo que abre é para selecionar a pasta e não um arquivo, segue meu modelo totalmente funcional, com a exceção que está salvando em uma célula e não na caixa de texto. Se puder dar uma olhada, ficaria muito agradecido.

Abs.

Boa tarde!!

Veja o link para DownLoad.
http://www.sendspace.com/file/mw9umd

Att

Agora entendi, huiauha. Era tão simples, só não sabia a linguagem para executar,

Bastava trocar [E9].Value por ActiveSheet.NOMEDACAIXADETEXTO.Text..

Estou mexendo com vba a pouco tempo, com tempo vou me acostumando. muito obrigado pela ajuda !!
Depois de conseguir com a sua ajuda colocar o caminho da pasta na caixa de texto aprimorei mais um pouco o código:

Antes ao apertar o botão para selecionar a pasta, se o usuário cancelava e não selecionasse uma nova pasta o caminho anterior era apagado e ficava em branco

Sub cmd_pasta1BT_Click()
    Dim Pasta As String
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        On Error Resume Next
        Pasta = .SelectedItems(1)
        On Error GoTo 0
    End With
    
    ActiveSheet.cmd_destino1.Text = Pasta
End Sub

Depois da modificação que fiz, quando o usuário cancela o diálogo de escolha de uma nova pasta, o caminho antigo é mantido a não ser que o usuário escolha uma nova pasta.

Sub cmd_pasta1BT_Click()
    Dim Pasta As String
    Dim Pasta2 As String
    Pasta2 = ActiveSheet.cmd_destino1.Text
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Show
        On Error Resume Next
        If .SelectedItems(1) = Empty Then
        Pasta = Pasta2
        Else
        Pasta = .SelectedItems(1)
        
        End If
        On Error GoTo 0
    End With
    
    ActiveSheet.cmd_destino1.Text = Pasta
End Sub

Vlw

Boa noite!!

Por favor Click na mãozinha!!