السلام عليكم
الكود التالي تبعك
Private Sub UserForm_Activate()
For N = 1 To 550
Me.Width = 0.7 * N
Me.Height = 0.4 * N
Next N
End Sub
تعارض مع كود آخر عندي فكيف يتم التعديل
Private Sub UserForm_Activate()
Dim s As Integer
For s = 1 To Sheets.Count
Me.CmbSheet.AddItem Sheets(s).Name
Next
End Sub