[kapetang]

Καλημέρα στην παρέα

Σπύρο, σε συγχαίρω για τα πετυχημένα βήματα στην VBA.

Αν θέλουμε τα προστιθέμενα φύλλα να είναι ίδια με το «ΚΕΝΤΡΙΚΟ» θα μπορούσε να χρησιμοποιηθεί παρόμοιος κώδικας, όπως:

Sub sheetcreator2()
    Dim cell As Range
    Application.ScreenUpdating = False
    For Each cell In Selection
        Worksheets("ΚΕΝΤΡΙΚΟ").Copy After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = cell.Text
    Next cell
    Application.ScreenUpdating = True
End Sub

Φιλικά/Γιώργος