[VBA] Αποθήκευση βιβλίου με το τρέχον όνομα φύλλου και φίλτρο

[ΧρύσαΚ]

Καλημέρα σας
Είμαι νεό μέλος και τελείως αρχάρια σε visual basic και προσπαθώ να αυτοματοποιήσω το εξής:
Από βιβλίο εργασίας, θέλω να αντιγράφεται το ενεργό φύλλο σε νέο βιβλίο και να αποθηκεύεται (πχ στην επιφάνεια εργασίας) με το όνομα του τρέχοντος φύλλου. Εάν είναι δυνατόν, να αποθηκεύεται και με το φίλτρο που θα έχω εφαρμόσει .
Το μόνο που έχω καταφέρει ως τώρα είναι να το απομονώνω και να αποθηκεύεται ως βιβλίο1.xls.
Παρακάτω είναι ο κώδικας που έχω χρησιμοποιήσει ως τώρα:

Dim strFileName As String

ActiveSheet.Copy

If strFileName = "False" Then Exit Sub 'User Canceled

ChDir "C:\Users\Chrissa\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\Chrissa\Desktop\Βιβλίο1. xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

Εάν μπορούσε κάποιος να με βοηθήσει ή να με κατευθύνει κάπως, θα το εκτιμούσα πολύ!

[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\"
με την διαδρομή του χρήστη
Στο βιβλίο που ακολουθεί ενεργοποιήστε ένα ένα τα φύλλα και "τρέξτε" τον κώδικα

[ΧρύσαΚ]

Καλημέρα σε όλους
Σπύρο σε ευχαριστώ πολύ για την απάντηση σου. Τα κατάφερα και κάνει ακριβώς αυτό.
Εάν έχω εφαρμόσει αυτόματο φίλτρο, αντιγράφει το ενεργό φύλλο όπως ακριβώς το βλέπω. Υπάρχει δυνατότητα, όταν πλέον δημιουργηθεί το νέο φύλλο, να έχει τα αποτελέσματα μόνο του φίλτρου χωρίς να φαίνονται τα βελάκια του φίλτρου;
Επίσης, αυτό το αρχείο , θα το ανεβάσω σε έναν server. Θα το χρησιμοποιούν λοιπόν και άλλοι. Μήπως πρέπει να βάλω και εντολή να δημιουργείτε και ένας φάκελος στον εκάστοτε C: και εκεί να αποθηκεύεται το νέο φύλλο; Διότι με την επιφάνεια εργασίας, δεν θα βρίσκει το όνομα χρήστη κάθε φορά...
Και πάλι ευχαριστώ!

[Spirosgr]

Καλημέρα
Πρωινή γκρίνια αλλά δεν καταλαβαίνω βρε παιδιά...
πρώτα ζητάτε κάτι και μετά θα το θέλατε κάπως αλλιώς...

[ΧρύσαΚ]

Αρχική Δημοσίευση από Spirosgr

Καλημέρα
Πρωινή γκρίνια αλλά δεν καταλαβαίνω βρε παιδιά...
πρώτα ζητάτε κάτι και μετά θα το θέλατε κάπως αλλιώς...

Έχεις δίκιο αλλά δεν φταίω εγώ Αυτή που μου ζήτησε να τη βοηθήσω να το φτιάξει, μου το ξεφούρνισε μετά...