See a example in the macro on this page
http://www.rondebruin.nl/csv.htm
'Browse to the folder with CSV files
Set oApp = CreateObject("Shell.Application")
Set oFolder = oApp.BrowseForFolder(0, "Select folder with CSV files", 512)
If Not oFolder Is Nothing Then
foldername = oFolder.Self.Path
If Right(foldername, 1) <> "\" Then
foldername = foldername & "\"
End If
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"Otto Moehrbach" <(E-Mail Removed)> wrote in message news:(E-Mail Removed)...
> Excel 2003-2007
> An OP posted a problem and I realized that there was one thing I needed to
> know before I could help him. What is the code to allow the user to select
> a folder? The result must be the full path to that folder. Note: That
> path will not be the path to ThisWorkbook. Thanks for your time. Otto
>