Workbook.Open Filename procedure

I am trying to modify my macro for the import of XML files. I want the new macro to open CSV files. I attempted it but encountered a problem with the syntax for the Open Filename procedure.

Just below is the code with the problem. Further down is the whole script.
Please somebody assist in debugging this problem.

'Import files

        For i = LBound(FileName) To UBound(FileName)
            Sheets(i).Select
            FileName2 = FileName(i)
            ActiveWorkbook.Open FileName:=FileName2
        Next i

Sub ImportMultipleFiles()

'Define variables
    
    Dim Filt As String
    Dim FilterIndex As Integer
    Dim Title As String
    Dim FileName As Variant
    Dim FileName2 As Variant
    Dim i As Integer
    Dim j As Integer
    Dim Msg As String

'Select files to Import

    'Set up list of file filters
        Filt = "CSV Files (*.csv) ,*.csv,"

    'Display * * by default
        FilterIndex = 5

    'Set the dialog box caption
        Title = "Select a File to Import"

    'Get the file name
        FileName = Application.GetOpenFilename _
            (FileFilter:=Filt, _
            FilterIndex:=FilterIndex, _
            Title:=Title, _
            MultiSelect:=True)

    'Exit if dialog box canceled
        If Not IsArray(FileName) Then Exit Sub

'Create sheets, one for each file to import
       
    For j = LBound(FileName) To UBound(FileName) - 1
        Sheets.Add After:=Sheets(j)
        Sheets(j + 1).Select
        Sheets(j + 1).Name = j + 1
    Next j

'Import files

        For i = LBound(FileName) To UBound(FileName)
            Sheets(i).Select
            FileName2 = FileName(i)
            ActiveWorkbook.Open FileName:=FileName2
                
            Cells.Select
            Selection.RowHeight = 12.5
            Selection.ColumnWidth = 15
    
        Next i
    
End Sub

You either copy or you import; no other choices since if you open a workbook, you obviously get a new workbook opened!

That may be the first time I've ever been accused of sobering things up...

I decided to go with the open file method.

The below macro does copy the data from the opened csv file to my main workbook. However, closing the csv workbook gives me a "script out of range error".
Please somebody help to debug this step. Also please include a handler that deals with the keep/not keep info in the clipboard at closing.

Below is the line that gives me the error. Furtherdown is the complete sub. Attached is a test.csv file.

Workbooks(FileName).Close

Sub ImportMultipleFiles()

    Application.ScreenUpdating = False

'Define variables
    
    Dim Filt As String
    Dim FilterIndex As Integer
    Dim Title As String
    Dim FileName As Variant
    Dim MainWorkbook As String

    MainWorkbook = ActiveWorkbook.Name

'Select files to Import

    Filt = "CSV Files (*.csv) ,*.csv,"
    FilterIndex = 5
    Title = "Select a File to Import"
    FileName = Application.GetOpenFilename _
        (FileFilter:=Filt, _
        FilterIndex:=FilterIndex, _
        Title:=Title, _
        MultiSelect:=False)

'Import file

    Workbooks.Open FileName:=FileName
    Cells.Select
    Cells.Copy

    Workbooks(MainWorkbook).Activate
    Sheets("Sheet1").Select
    ActiveSheet.Paste
    
    Workbooks(FileName).Close
    
    Application.ScreenUpdating = True

End Sub