To explore or just select and return selection? If the first, one these
methods will work.

Sub OpenExplorer()
Dim x As Variant
Dim sPath As String

'sPath = """E:\MyDirectory\Williams,Bob 7264\"""
sPath = Application.path
x = Shell("explorer /n,/e," & sPath, 1)
End Sub

Sub t()
Dim sPath As String
sPath = """E:\MyDirectory\Williams,Bob 7264\"""
IExplorerOpen sPath
End Sub

Private Sub IExplorerOpen(sPath As String)
'early binding. Requires reference to Microsoft Internet Controls
(shdocvw.dll).
Dim ieo As SHDocVw.InternetExplorer
Set ieo = New SHDocVw.InternetExplorer
ieo.FullScreen = True
ieo.Navigate sPath
ieo.Visible = True
Exit Sub

'late binding
Dim IE As Object
Set IE = CreateObject("internetexplorer.application")
IE.Navigate sPath
IE.Visible = True
Exit Sub
End Sub