السلام عليكم
الاخ الكريم / yousifsamra
بارك الله فيك
لتنفيذ ما تريده قم بتعديل الكود الموجود في الزر في الفورم الي الكود التالي
سيعمل معك علي كل شيتات الملف مهما كان عددها بدون كتابة اسماء الشيتات كما هو في الكود السابق
ارجو ان يفي بطلبك
وفي انتظار ردك
Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets.Select
Sheets("ورقة1").Activate
ActiveWindow.Zoom = TextBox1.Value
Sheets("ورقة1").Select
Range("A1").Select
End
End Sub
جزاك الله خيرا