Slette ark

Den følgende makro sletter Ark1, men den kommer op med en advarsels box: "Det eller de markerede ark indeholder muligvis data. Tryk på Delete for at slette dataene permanent."

- Hvordan fjerner jeg den advarsel, så den blot sletter arket?

Sub makro_1()
    Sheets("Ark1").Delete
End Sub


Ps. lidt kikset at knappen hedder Slet og ikke Delete, men det er vel typisk en MS fejl :)