Business Applications
Hi guys,
I've been plying around with this code but cannot achieve what I want:
Private Sub openDialog()
Dim txtFileName As String
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
'...