Sub FileDialogOpen()
' Open File Dialog to only select multiple Excel files
' ERPstuff.com
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Filters.Add "Excel Files", "*.xlsx; *.xlx", 1
.Show
For i = 1 To .SelectedItems.Count
MsgBox .SelectedItems(i)
Next i
End With
End Sub
Open File Dialog using VBA
Open File Dialog using VBA
Malik Sikandar Hayat
admin@erpstuff.com
admin@erpstuff.com
Who is online
Users browsing this forum: No registered users and 0 guests