BrowseFolder

Asks user for a folder
tested in VBA of word as well as VBA in Excel

CodeFunctionName
What is this?

Public

Tested

Original Work
Function BrowseFolder(Optional StartIn = "")
Dim FolderName As String
If StartIn > "" Then ChDir StartIn
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
On Error Resume Next
BrowseFolder = .SelectedItems(1)
Err.Clear
On Error GoTo 0
End With
End Function

StartIn

Views 4,347

Downloads 1,314

CodeID
DB ID

ANmarAmdeen
602
Attachments
Revisions

v1.0

Thursday
June
14
2018