Slett ark

Man kan slette ark fra en arbeidsbok uten at brukeren får spørsmål om bekreftelser ved å benytte makroen nedenfor:

Sub SlettEttArk(strSheetName As String)
' sletter et ark som heter strSheetName i den aktive arbeidsboken
    Application.DisplayAlerts = False
    Sheets(strSheetName).Delete
    Application.DisplayAlerts = True
End Sub

Dokumentet er sist oppdatert 1999-12-20 12:37:25 Utskriftsvennlig versjon