Todd,

See http://www.cpearson.com/excel/BrowseFolder.htm for details on
using the "Windows Shell Controls And Automation" library
functions to do this.



"Todd" wrote in message
...
Function GetDirectory(InitDir As String, Flags As Long,
CntrDlg As Boolean, Msg) As String
Dim bInfo As BROWSEINFO
Dim pidl As Long, lpInitDir As Long

CntrDialog = CntrDlg ''Copy dialog centering setting
to module level variable so callback function can see it
With bInfo
.pidlRoot = 0 'Root folder = Desktop
.lpszTitle = Msg
.ulFlags = Flags

Above is only part of a function I got from a website long
ago. Does anyone know what I need to use to get it to
open the file dialog up at any other location other than 0
or root folder?

Thanks