[Spirosgr]

Καλησπέρα
Για την ολοκλήρωση του θέματος ένας ακόμα κώδικας παράδειγμα.
Βάλτε τον δεύτερο κώδικα

Sub wshDel()
    Dim sh As Worksheet
    Application.DisplayAlerts = False
    For Each sh In Worksheets
        If sh.CodeName = "Sheet5" Or sh.CodeName = "Sheet3" Then
            sh.Delete
        End If
    Next sh
    Application.DisplayAlerts = True
End Sub

και τον τίτλο του wshDel στο κενό μετά το
Set rng = Sheet1.Range("a1:a" & lastrow) στον πρώτο.

Ο κώδικας διαγράφει τα φύλλα με κωδικό όνομα Sheet5 & Sheet3
Μπορείτε να κάνετε τα ονόματα link σε Range ή Cell.

Σημείωση:
Όλοι οι κώδικες (γενικά στον προγραμματισμό) θα πρέπει να είναι
προσαρμοσμένοι 100% στο ζητούμενο που πρέπει να αποδώσουν.
Αν το ζητούμενο είναι λίγο «χύμα» και οι κώδικες θα είναι «χύμα» και πιθανόν να μην
εκτελούν σωστά ή και με ευκολία το ζητούμενο.