[kapetang]

Καλησπέρα

1) Δοκίμασε τον κώδικα που είναι συντομότερος και μάλλον ταχύτερος.

Sub COPY_1()

    Dim wkb1 As Workbook
    Dim sht1 As Worksheet
    Dim wkb2 As Workbook
    Dim sht2 As Worksheet

    Application.ScreenUpdating = False

    Set wkb1 = ThisWorkbook

    Set wkb2 = Workbooks.Open(Filename:=wkb1.Worksheets("ΥΦΙΣ ΤΑΜΕΝΗ").Range("a1").Value)

    Set sht1 = wkb2.Sheets(1)
    Set sht2 = wkb1.Sheets("Φύλλο1")
    sht2.Range("a1:x5500").Value = sht1.Range("a1:x5500").Value
    
    wkb2.Close False

    Sheets("ΥΦΙΣΤΑΜΕΝΗ").Select
    Range("a1").Select


    Application.ScreenUpdating = True

End Sub

2) Με τον κώδικα τα αρχεία RF1, RF2, ... ανοίγουν (φορτώνονται) στο Excel και έτσι γίνεται δυνατή η αντιγραφή των στοιχείων τους στο φύλλο1.