Solved: Browsing for a folder

[Ken Puls]

ROFL!

uksrogers, that is EXACTLY what I am looking for! I tend to miss the obvious somtimes.

Here it is:
[vba]Sub test()
Dim sFile As Variant
Dim lngcount
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = "C:\My Documents\"
.Show
For lngcount = 1 To .SelectedItems.Count
sFile = .SelectedItems(lngcount)
Next lngcount
End With
Debug.Print sFile
End Sub[/vba]

Thank you!