ConvertWithDialog

Sub ConvertwithDialog()
Dim SummarySheet As Worksheet
    ' Create a new workbook and set a variable to the first sheet.
    Set SummarySheet = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
    Dim f As Object
    Dim srcWorkbook As Workbook

'gets the files that the user wants to convert
Set f = Application.FileDialog(3)

f.AllowMultiSelect = True



'loops through each file performing the indicated operations
If f.Show Then
    For i = 1 To f.SelectedItems.Count

        sfile = Filename(f.SelectedItems(i), spath)


Set srcWorkbook = Workbooks.Open(spath & sfile)

  Set sht = srcWorkbook.Worksheets(1)
'there's a lot more 'converting' to be done, but this is some of it
sht.Range("A19:R90").Copy
SummarySheet.Range("A2").PasteSpecial

SummarySheet.SaveAs (spath & "Converted " & sfile)
Next
End If
SummarySheet.Close
sht.Close

End Sub

'provides the file name and path: https://stackoverflow.com/questions/14915179/ms-access-browse-for-file-and-get-file-name-and-path
Public Function Filename(ByVal strPath As String, spath) As String
    spath = Left(strPath, InStrRev(strPath, "\"))
    Filename = Mid(strPath, InStrRev(strPath, "\") + 1)
End Function