Zonder voorbeeld en het ontbreken van uitleg over het hoe en waarom, helpt dit je verder?
Kies de bladen die je wilt verwijderen (je kan er meerdere kiezen) en druk op verwijderen.
Zie bijlage.
Het is een stokpaardje van mij maar ik blijf het herhalen.
Vermijdt Select en Activate, het vertraagt je code big time en het is zelden nodig.
Deze code doet net hetzelfde als uw vb.
Sub Macro1()
aantaltabs = Application.Sheets.Count
MsgBox "Het totaal aantal werkbladen is: " & aantaltabs
If Application.Sheets.Count > 4 Then Sheets(Array(3, 4, 5, 6, 7, 8)).Delete
End Sub
Zoals je kan zien in mijn vb, ik gebruik
Application.DisplayAlerts = False
Dan krijg je geen vraag Microsoft Excel verwijdert ....