I'm using this to browse to a folder to save the current workbook;
Function GetInstallFolder() As String
Dim fldr As FileDialog
Dim sItem As String
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Toolbox"
.AllowMultiSelect = False
.InitialFileName =...