[Tasos]

Καλημέρα σε όλους!
Μανώλη, έστω ότι διαδρομές των αρχείων κειμένου ξεκινούν από το Α2 και το κωδικό όνομα του φύλλου όπως φαίνεται στον VBE είναι "Sheet1".

Δοκίμασε τον παρακάτω κώδικα:

Sub ImportContentFromTextFile()
    Dim fso As Object
    Dim oStream As Object
    Dim c As Range
    Dim rng As Range
    Dim i As Integer

    ' Sheet1 = το κωδικό όνομα του φύλλου με τις διαδρομές των αρχείων
    Set rng = Sheet1.Range("A2:A" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row)

    'Απαλοίφει τυχόν περιεχόμενα στις επόμενες 100 στήλες
    'rng.Offset(, 1).Resize(, 100).ClearContents

    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each c In rng
        i = 0
        If fso.FileExists(c.Value) Then
            Set oStream = fso.OpenTextFile(c.Value, 1)
            While Not oStream.AtEndOfStream
                i = i + 1
                c.Offset(, i).Value = oStream.ReadLine
            Wend
            oStream.Close
        End If
    Next
End Sub

Καλή συνέχεια!

Τάσος