Hello,

Ssee the following at Ivan F Moala's site:

http://www.xcelfiles.com/Shell32_00.html

Change Sub TesterIII() to pass CurDir. I.e.,

'-------------------------------
Sub TesterIII()
'// Using String
'// This will not only limit the User to a specific Folder
Dim strFolder As String

strFolder = BrowseForFolderShell(, , , CurDir)

If strFolder = vbNullString Then
MsgBox "You cancelled"
Else
MsgBox strFolder
End If

End Sub
'-------------------------------

Regards,
Nate Oliver