Perfect!

Thank you, Ron.
--
Al C


"Ron de Bruin" wrote:

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