Sheet.deleite ohne nachfrage
09.11.2007 21:53:00
piecha
ich versuche mich gerade mal wieder in VBA und versuche ein Sheet zu löschen. Leiden kommt immer die nervige Frage, ob ich wirklich will:
Sub LetztesBlatt(BlattName$)
Dim ws As Worksheet
' Prüfen ob Blatt vorhanden
For Each ws In Worksheets
If InStr(ws.Name, BlattName) > 0 Then
' Wenn vorhanden dann löschen
ws.Delete
End If
Next ws
' Wenn nicht dann leztes Blatt umbenennen
Worksheets(Sheets.Count).Name = BlattName
End Sub
wie kann ich die Abfrage vermeiden / Abschalten?
Danke Piecha
Anzeige