[Spirosgr]

Καλησπέρα
Ο κώδικας κάνει μόνο αυτό που ζητήθηκε.
Αντιγράφει το ενεργό φύλλο με ότι έχει "επάνω" στην επιφάνεια εργασίας και
με το όνομα του ενεργού φύλλου σε μορφή .xlsx.

Sub CopyActSh()
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\Σπύρος\Desktop\" & ActiveSheet.Name & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close
End Sub

Φυσικά πρέπει να αλλάξει η διαδρομή "C:\Users\Σπύρος\Desktop\"
με την διαδρομή του χρήστη
Στο βιβλίο που ακολουθεί ενεργοποιήστε ένα ένα τα φύλλα και "τρέξτε" τον κώδικα