ارد المساعدة في كود ادراج صفحة وكود لحذفها

[gamalin]

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

ارجوا ان تستكمل مساعداتكم الرائعة

بكودين

احدهما لادراج صفحتين احدما باسم m1 والاخرى m2

والكود الاخر لحذفهما

[gamalin]

عذرا التكرار غير مقصود

[gamalin]

للرفع

[ابو اسامة العينبوسي]

السلام عليكم

استخدم الكود التالى لاضافة و رقتين :

Sub addsheets()
Application.Worksheets.Add after:=Worksheets(Worksheets.Count), Count:=2
Sheets(Worksheets.Count).Activate
ActiveSheet.Name = "m1"
With ActiveSheet
.Previous.Name = "m2"
End With
End Sub

[ابو اسامة العينبوسي]

و هنا للحذف

Application.DisplayAlerts = False
Sheets("m1").Delete
Sheets("m2").Delete
Application.DisplayAlerts = True

[gamalin]

السهل الممتنع

اخي الفاضل جزاك الله خير الجزاء وفتح عليك

اشكرك جدا اضافة رائعة وهو بالضبط من ابحث عنه جزاك الله خيرا