Tabbladen werwijderen

[vrouw]

Ik gebruik onderstaande macro voor het verwijderen van de tabbladen als ik het bestand afsluit zodat het bestand weer klaar is voor een nieuw gebruik.
Maar soms is er al een tabblad verwijderd voor het bestand gesloten word dus komt er een foutmelding.

Hoe bouw ik in de macro een controle in dat als de tabbladen al niet meer bestaan het die regels overslaat en verder gaat.

Sheets("DC1").Select
    Range("A1:DC7000").ClearContents
    Sheets("DC2").Select
    Range("A1:DC7000").ClearContents
    Sheets("DC3").Select
    Range("A1:DC7000").ClearContents
    Sheets("DC4").Select
    Range("A1:DC7000").ClearContents
    Range("A2").Activate
    Sheets("Tussenblad").Select
    Range("A2:G7000").ClearContents
    Application.DisplayAlerts = False
    Sheets(Array("DC1", "DC2", "DC3", "DC4")).Delete

 

[Cobbe]

Waarom eerst cellen leegmaken en dan toch het hele blad verwijderen?

Sub cobbe()
On Error GoTo oeps
Sheets("Tussenblad").Range("A2:G7000").ClearContents
Application.DisplayAlerts = False
Sheets(Array("DC1", "DC2", "DC3", "DC4")).Delete
oeps:
End Sub

 

[vrouw]

Waarom eerst cellen leegmaken en dan toch het hele blad verwijderen?

Omdat er anders de melding komt of je het wel zeker weet en deze data nodig is voor berekeningen op een ander tabblad.
Of iets in die trend

 

[Cobbe]

Hoe kan die data dienen voor een ander tabblad als het verwijderd is?
Die melding is weg door de instructie : DisplayAlerts = False

 

[vrouw]

Die melding is inderdaad wg, super en bedankt voor het meedenken.:thumb: