Browse for Folder

I have this module, which does great and works fine.

But what I am running into is user errors where users are looking for the file that is within the path, they get to the correct folder, and instead of just believing that the file is in that folder, because they are unable to see it they think that its not correct.

So i want it let the user browse for the file, but in the end only select up to the folder, which is what it is doing now.Start Free Trial

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

Sub BrowseforFolder()
 
 Dim fdBrowser As FileDialog
 
 'Get the File Dialog object
 Set fdBrowser = Application.FileDialog(msoFileDialogFolderPicker)
 
 With fdBrowser
 
  'Initialize it
  .Title = "Select Folder"
  .InitialFileName = "c:\"
  
  'Display the dialog
  If .Show Then
   Worksheets("Master").Range("E29").Value = .SelectedItems(1)
  End If
 End With
End Sub