السلام عليكم ورحمة الله وبركاته
استاذى الحبيب مهندس عادل
بارك لله فيك
واعانك على كثرة طلباتنا
الملف لم يعمل لدى اعطى خطاء واظهر محرر الفيجول بيسك
لا اعلم ما السبب
ـــــــــــــــــــــــــــــــ
Workbooks.Add
ActiveSheet.Name = o
Application.DisplayAlerts = False
Sheets("sheet2").Delete
Sheets("sheet3").Delete
Application.DisplayAlerts = True
n = ActiveWorkbook.Name
Ap
ــــــــــــــــــــــــ
الخطاء فى السطر باللون الاصفر
ارجوا منك اخبارى بالسبب
هل السبب عندى فى الجهاز
بارك الله فيك