BrowseForFolder
From scripting
Dim FolderName As String Dim RootPath FolderName = GetFolderName("Select a folder") If FolderName = "" Then MsgBox "You didn't select a folder." Else RootPath = FolderName & "\" TextBoxSavePath.Value = RootPath 'MsgBox "You selected this folder: " & RootPath End If