¿Cómo insertar la ruta completa de un documento en el equipo (pdf, ppt, txt etc) en una celda?

gracias es lo que buscaba

Sub ruta()
'Por.DAM
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo"
.Filters.Clear
.Filters.Add "All Files", "*.*"
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show Then
Range("A1") = .SelectedItems.Item(1)
End If
End With
End Sub