Hallo zusammen,
ich würde gerne, dass mein Skript durch alle Worksheets geht und alle dieser Sheets bis auf eines (Variable) löscht.
Dies ist mein Code doch leider funktioniert es nicht und ich komme einfach nicht auf die Lösung.
Dim fileName As Variant
Dim int_IC As Integer
Application.DisplayAlerts = False
For Each Worsheet In Workbooks(fileName).Worksheets
If Worksheet.Name <> CStr(int_IC) Then
Worksheets.Delete
End If
Next
Application.DisplayAlerts = True
Könnte mir jemand helfen?
Danke vielmals und VG
Saka
|