Thank you very much for the excellent feedback, I appreciate your time and effort.
@SamT
I could not get your suggestion to work
@snb
Works perfect, as always.
Sub M_snb()
Shell "explorer ""\\mgadmdat\public\Technology Support\Process Technology\ARCHIVE 2\Proc Tech\Offsites, B & S""", 3
End Sub
OR long way:
Sub Blending_and_Storage_Directory()
Dim strRootPath As String
Const strExpExe = "explorer.exe"
Const strArg = " "
strRootPath = """\\mgadmdat\public\Technology Support\Process Technology\ARCHIVE 2\Proc Tech\Offsites, B & S"""
PID = Shell(strExpExe & strArg & strRootPath, 3)
End Sub
@ Kenneth Hobs
It doesn't have a problem with the spaces, the other folder names also contain spaces and work without extra quotes. The hyperlinks also have no problem with it. Or maybe I understand you wrong.
Your code also works perfect:
Sub Blending_and_Storage_DirectoryKH()
Dim PID As Integer, strRootPath$
strRootPath = "\\mgadmdat\public\Technology Support\Process Technology\ARCHIVE 2\Proc Tech\Offsites, B & S"
'strRootPath = ThisWorkbook.Path
PID = Shell("explorer " & """" & strRootPath & """", vbMaximizedFocus)
End Sub
Regards,
van hunk