Hail the Messiah...
Shell "Explorer /e,MyDocuments", vbNormalFocus

That's the one.. Shell.

Silly me, for the life of me could not remember.
I'll sleep tonight.
Thx Kenneth.

"Kenneth Hobson" wrote in message
...
| 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
|