Dosyanın konumunu soran Excel Alma İletişim Kutusu

İçe aktarılacak dosyanın konumu için bir Excel Makro durması ve sorulması mümkün müdür?

Metin dosyalarını içe aktarmak için birkaç makro oluşturdum, ancak içe aktarılan dosya her zaman aynı konumda ve aynı dosya adında bulunmalıdır.

Bu yapacak:

Sub getafile()
    Dim fStr As String

    With Application.FileDialog(msoFileDialogFilePicker)
        .Show
        If .SelectedItems.Count = 0 Then
            MsgBox "Cancel Selected"
            End
        End If
        'fStr is the file path and name of the file you selected.
        fStr = .SelectedItems(1)
    End With
    'Replace with your code.
    MsgBox fStr
End Sub