Sub SelectFolder() Dim diaFolder As FileDialog Dim selected As Boolean ' Open the file dialog Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker) diaFolder.AllowMultiSelect = False selected = diaFolder.Show If selected Then MsgBox diaFolder.SelectedItems(1) End If Set diaFolder = Nothing End Sub
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter