Sub CSVimport()
'Makroname zum Impotieren von CSV-Dateien
     Dim pfad As Variant'  d.h. bei Bedarf Array oder Boolean
     Dim DateinameKurz As Variant '

     Dim Dateiname As Variant
     Dim WS As Worksheet
     pfad = FileSelection("*.csv") 'Hier wird die untere Funktion aufgerufen und der Rückgabewert in "pfad" geschrieben
     On Error GoTo weiter' Damit kein ERROR kommt bei der Schleife unten
     If pfad = False Then Exit Sub' Wenn "FALSE" - Raus , da sonst ERROR bei UBOUND
weiter:
     For i = 1 To UBound(pfad)' UBound bedeutet obere Begrenzung des Array (Anzahl Elemente - Also bei 3 angewählten Dateien wäre das 3))
          Dim TestArray() As String
          TestArray = Split(pfad(i), "\") 'Splitte Text anhand von "Backslash" und schreibe die einzelnen Teile in ein Array "TestArray"
          Dateiname = TestArray(UBound(TestArray)) 'Logischerweise landet der Dateiname (ohne Pfad) im letzten Element des Array
          DateinameKurz = Left(Dateiname, Len(Dateiname) - 4)'Dein Code - Endung abschneiden für Blasttnamen
          ActiveWorkbook.Worksheets.Add
          With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & pfad(i), Destination:=Range("A1"))
               .FieldNames = True
               .RowNumbers = False
               .FillAdjacentFormulas = False
               .PreserveFormatting = True
               .RefreshOnFileOpen = False
               .RefreshStyle = xlInsertDeleteCells
               .SavePassword = False
               .SaveData = True
               .AdjustColumnWidth = True
               .RefreshPeriod = 0
               .TextFilePromptOnRefresh = False
               .TextFilePlatform = 65001
               .TextFileStartRow = 1
               .TextFileParseType = xlDelimited
               .TextFileTextQualifier = xlTextQualifierDoubleQuote
               .TextFileConsecutiveDelimiter = False
               .TextFileTabDelimiter = False
               .TextFileSemicolonDelimiter = False
               .TextFileCommaDelimiter = True
               .TextFileSpaceDelimiter = False
               .TextFileColumnDataTypes = Array(1, 1)
               .TextFileTrailingMinusNumbers = True
               .Refresh BackgroundQuery:=False
          End With
          ActiveSheet.Name = DateinameKurz
     Next i 'Nächste Datei
End Sub

Das in ein MODUL kopieren:

Function FileSelection(ByVal Endung As String) As Variant
     FileSelection = Application.GetOpenFilename(FileFilter:="Excel-Dateien (" + Endung + ")," + Endung, MultiSelect:=True)

'    Öffnet und schreibt Deine Auswahl in ein Array "Fileselection" - Wenn Abbruch "False" statt Array

End Function