كود حذف جميع الشيتات ما عدا شيتات معينه ( مساعده )

[محمد عبد الناصر]

السلام عليكم ورحمة الله وبركاته

عايز كود اقدر امسح بيه اى شيت موجود فى الملف ما عدا sheet1 و sheet2 يمسح اى شيت تانى موجود ويسيب الاتنين دول زى ما هما

[خالد الرشيدى]

جرب الكود التالى

Sub test()
Dim i As Long
    For i = 3 To Sheets.Count
        Sheets(i).UsedRange.ClearContents
    Next i
End Sub

مسح محتويات الشيتات ماعدا شيت 1 و 2 

Test.rar

[ياسر خليل أبو البراء]

جرب الكود التالي

Sub DeleteAllSheets()
    Dim WS As Worksheet
    Application.DisplayAlerts = False
        For Each WS In ThisWorkbook.Sheets
            If WS.Name <> "Sheet1" And WS.Name <> "Sheet2" Then WS.Delete
        Next WS
    Application.DisplayAlerts = True
End Sub