حذف ورقات عمل التي اسمها من نطاق معين

[عزيز عرابي]

الأخوة الأكارم ,,,

 

لدي ملف الاكسل المرفق فيه كود من تصميم الأستاذ عبد الله باقشير لانشاء ورقات عمل ( شيتات ) و تسمى هذه الورقات من اسماء موجودة في نطاق F11:F29

 

أريد كود يقوم بعمل العكس حيث أريده ان يقوم بالتراجع عن انشاء ورقات العمل أو أن يقوم بحذف الورقات التي اسمائها موجود في نطاق F11:F29

 

الملف رائع و تنقصه هذا الطلب

 

مشكورين سلفاً

 

 

محصلات و سجلات.rar

[طارق محمود]

السلام عليكم

أخي الكريم
شكرا لك لأنك جعلتني استمتع بمتابعة عمل من أعمال أستاذنا الجليل /  عبد الله باقشير 
أرجو أن يكون الملف المرفق هو ماتريد

لاحظ: لن يلغي الكود صفحة اللغة العربية حيث أنها بالصف 10 وأنت طلبت إلغاء  الورقات التي اسمائها موجود في نطاق F11:F29

 

هذا هو الكود

Sub T_Delete()


Dim cel As Range
Dim NamSheet As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
    For Each cel In Range("F11:F29")
        NamSheet = Trim(cel)
        If Len(NamSheet) = 0 Then GoTo 1
        x = Sheets.Count
        For I = 1 To x
            If Sheets(I).Name = NamSheet Then Sheets(I).Delete: x = x - 1
            If I = x Then GoTo 1
        Next I
1
    Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

وتفضل الملف به الكود

 

____برنامج محصلات و سجلات2.rar

[عزيز عرابي]

الأستاذ طارق المحترم ,,,

 

السلام عليكم

 

بالفعل هذا هو المطلوب و أشكرك من قلبي

 

الكود لا أريده ان يلغي صفحة اللغة العربية 

 

تقبل احترامي و محبتي