Try this
Dim oApp As Object
Dim oFolder
Set oApp = CreateObject("Shell.Application")
'Browse to the folder
Set oFolder = oApp.BrowseForFolder(0, "Select folder", 512)
If Not oFolder Is Nothing Then
'Do your stuff
Else
MsgBox "You not select a folder"
End If
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Al" wrote in message ...
Is there a built-in Dialog box that lets you select a folder, similar to the
way xlDialogOpen lets you select a file?
--
Al C