Olá, preciso de uma macro para que ao importar um txt pelo botão ele separe automaticamente  entre colunas, OBS: o txt sempre vem com ponto e virgula(;) então preciso de uma macro com delimitador em ponto e virgula. Tentei fazer como DaTaType:=True no meu código mas não deu muito certo.

Macro feita até o momento a seguir:

Referência: [inserir a descrição da imagem aqui][1] 

<!-- begin snippet: js hide: false console: true babel: false -->

<!-- language: lang-html -->

    Sub lerTxt()
        Dim sheet As Worksheet
        Dim selecao As Variant
        Dim i As Integer, linha As Integer
        
        selecao = Application.GetOpenFilename(Filefilter:="Texto, *.txt", Title:="Selecione um arquivo", MultiSelect:=True)
        
        If VarType(selecao) = vbBoolean Then Exit Sub 'Nenhum arquivo selecionado
        'Se não for boolean, é uma array de strings com caminhos de arquivo.
        
        ' Aqui é que você tem que iterar, pois "selecao" contém uma array com caminhos de arquivo.
        ' Dentro de cada iteração, você faz aquilo que você já estava fazendo.
        For i = 1 To UBound(selecao) Step 1
            Open selecao(i) For Input As #1
            Set sheet = ActiveWorkbook.Sheets.Add(After:=ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count))
            
            linha = 1
            Do Until EOF(1)
                Line Input #1, valorLin
                Cells(linha, 1).Value = valorLin
                linha = linha + 1
            Loop
            Close #1
            
            sheet.UsedRange.TextToColumns DataType:=True
            sheet.Columns().EntireColumn.AutoFit
        Next i
        
        End Sub

<!-- end snippet -->


  [1]: https://i.sstatic.net/uj5xA.png