Select Folder
Dim f As Object 'FileDialog
Set f = Application.FileDialog(4) 'msoFileDialogFolderPicker
With f
.InitialFileName = "C:\Temp\"
.Show
If .Show = True Then 'item select, not cancel
MsgBox Trim(.SelectedItems(1))
End If
End With
© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext