You could use the built-in File dialog picker:

Sub a()
Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogFolderPicker)
x.Show
MsgBox x.SelectedItems(1)
End Sub

or the Windows API folder browser:

http://www.j-walk.com/ss/excel/tips/tip29.htm

http://www.oaltd.co.uk/DLCount/DLCou...eForFolder.zip

--
Jim
"lionel" wrote in message
...
|I need to allow the user of my program to choose a Folder to work in.
| I know how to use the common dialog box procedure using
| "Application.Dialogs(commondialogFindFiles)" to allow the user to find a
file.
| How can I show a common dialog box to pick a folder, instead of a file?
| --
| Lionel