Sheets löschen - Hinweismeldung weg
Matze,Matthias
kleines Code Problem, find leider keine Lösung , wisst ihr das ?
Ich lösche die Sheets mit dem unteren Code und es folgt bei jeden Blatt eine Sicherheitshinweis das die Blätter noch Daten enthalten könnten. Wie kann ich diese Meldung umgehen? Die Daten sind "nicht" relevant, es soll wirklich gelöscht werden.
Private Sub CommandButton2_Click()
Dim Blatt As Object
Sheets("Datenbank").Select 'Aktive nicht löschen
'ALLE Blätter löschen bis Count -Ende
For Each Blatt In Sheets
If Blatt.Name ActiveSheet.Name Then
Blatt.Delete ' hier kommt immer eine Hinweismeldung, diese soll entfallen
End If
Next Blatt
End Sub
Matthias