Blätter löschen ohne Blatt A & B
18.08.2006 14:17:18
helena
kann mir bitte jemand helfen
ich möchte alle Blätter löschen ausser A & B
If strQuest = vbNo Then Exit Sub
Application.ScreenUpdating = False
Windows("Dat_Ablagen.xls").Activate
Sheets("A").Select
Dim i As Integer
Application.DisplayAlerts = False
For counter = Sheets.Count To 1 Step -1
If Sheets(counter).Name ActiveSheet.Name Then
Sheets(counter).Delete
End If
Next
jetzt wird alles gelöscht ausser Blatt A
Danke
gruss helena aus CH