Get File path
Sub Get_Filename()
Dim filename As Variant
filename = Application.GetOpenFilename(Title:="Test")
If filename = False Then Exit Sub
Sheets("Sheet1").Range("A1") = filename
End Sub
Get Folder path
Sub SelectFolder()
Dim diaFolder As FileDialog
Dim selected As Boolean
' Open the file dialog
Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
selected = diaFolder.Show
If selected Then
Sheets("Sheet1").Range("A1") = diaFolder.SelectedItems(1)
End If
Set diaFolder = Nothing
End Sub