Copia o comando abaixo e cola no VBA, e testa! Esta como pediu

Private Sub cadastrar_NomeArquivo_Click() 'Pegar nome arquivo e inserir na Variavel X
Dim Caminho As String 'Caminho do arquivo
Dim fDialog As Office.fileDialog
Dim nome As Variant
Dim sNomeArquivo As String
Set fDialog = Application.fileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False 'Seleção de múltipla?
.Title = "Selecionar Arquivo" 'Titulo da Janela
.Filters.Clear
'.Filters.Add "Arquivos Excel - .xls", "*.xls" 'Caso queira Filtros tira do modo comentario e muda a extensão
If .Show = True Then
Caminho = .SelectedItems.Item(1)
sNomeArquivo = Dir(Caminho)
x = sNomeArquivo 'Insere o Nome na variavel X
msgbox x 'mostra o nome da variavel X
End If
End With
End Sub

Obrigado deu certo...isso que eu queria...valeu...

Agradeça pela resposta! E de o tópico como Resolvido!