Quote Originally Posted by paulked View Post
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

Hi Paulked,

Thank-you for your response!

Am I right in assuming you cannot refer to a cell when writing a path?

e.g. "C:\home" & "D2" & "\word.docm"

Thanks,

Erinc