Option Explicit
Private Sub Button1_Click()
With Application
.Calculation = xlManual
'.ScreenUpdating = False
End With
Dim a, B As Variant, Nom, Nom2 As String 'Описываем переменные
    Nom = ActiveWorkbook.Name 'Задаем имя активной книге
    ChDrive "C:"    'Выбор диска
    ChDir "C:\"    'Выбор каталога
        a = Application.GetOpenFilename("Тип файла (*.csv), *.csv", _
                                    , "Выберите отчет QUIZZ", , True) 'выбираем тип файлов excel
        Select Case TypeName(a)
        Case Is = "Boolean"
            Exit Sub
        Case Else
            For B = LBound(a) To UBound(a)
                Workbooks.Open a(B)
'                Workbooks.Open a(B), CorruptLoad:=xlExtractData 'проверка выбора excel
            Next
        End Select
    Nom2 = ActiveWorkbook.Name 'задаем имя 2-й книге
Columns("A:A").Select
            Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
                :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
                Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
                ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
                (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1)), TrailingMinusNumbers _
                :=True
End Sub

 Columns("A:A").Select