MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
Public Function modImportExport_OpenFile(strFileExtension As String, Optional bolAllowMultiSelect As Boolean = False) ' the input is used do set the filtering on the dialog box ' Returns Filename/Path OR Canceled Dim objfd As Object Dim vrtSelectedItem As Variant Dim strExtType As String Set objfd = Application.FileDialog(3) Select Case strFileExtension Case "xls", "xlsx" strExtType = "*.xls,*.xlsx" Case "txt", "asc", "csv" strExtType = "*.txt,*.acs,*.csv,*.prn" Case Else strExtType = "*.*" End Select With objfd .Title = "Please Select Your File" .AllowMultiSelect = bolAllowMultiSelect .Filters.Clear .Filters.Add "Files", strExtType, 1 If .show = -1 Then For Each vrtSelectedItem In .SelectedItems 'Return File Name and Path modImportExport_OpenFile = vrtSelectedItem '<< Something needs to happen here to put selected files (1 or more) into an array to return Next vrtSelectedItem Else 'The user pressed Cancel. modImportExport_OpenFile = "Canceled" End If End With 'Set the object variable to Nothing. Set objfd = Nothing End Function