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



© 2021 Better Solutions Limited. All Rights Reserved. © 2021 Better Solutions Limited TopPrevNext