Codenpassung
Hans
folgenden Code hätte och gerne angepasst. Ich möchte auch das Sheets "Top" vor der Löschung retten?
Jemand eine Idee?
Dim objSh As Worksheet, objDel As Worksheet, objWb As Workbook
Dim lngRow As Long, lngLast As Long
On Error GoTo ERREXIT
GMS
Set objSh = Sheets("Übersicht")
With objSh
For Each objDel In .Parent.Worksheets
If Not objDel Is objSh Then objDel.Delete
Next
....