Filepath to reference cell value

[paulked]

Try:

Sub test()
    Dim fPath As String, oShell As Object
    Set oShell = CreateObject("Shell.Application").BrowseForFolder(0, "Please pick a folder", 0)
    fPath = oShell.self.Path & "\*****\*****\*****\*****.docm"
    MsgBox fpath
End Sub