Specified folder path to select file path

Try this:

Sub SelectFolder()
With Application.FileDialog(msoFileDialogFolderPicker)
  .InitialFileName = ActiveWorkbook.Path
  .Title = "Please choose a folder"
  .AllowMultiSelect = False
  If .Show = -1 Then Range("B5").Value = .SelectedItems(1)
End With
End Sub

Is that what you need?

EDIT: Looking back at your first post, I think I misunderstood. You want the path selected to be a link to that folder.. I found this on another thread that you could maybe work into your other macro, or mine, which I assume they probably both do the same thing...

http://www.excelforum.com/excel-prog...hyperlink.html