Sometimes you needfo work with external files, this code will let you pick a folder.
Select Root folderSet fd = Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a folder to compile"
.AllowMultiSelect = False
.InitialFileName = strRootPath
If .Show = -1 Then
For Each varRootFolder In .SelectedItems
strRootPath = varRootFolder & "\"
Set fd = Nothing