على الرغم انى لا ارى اى جدوى او فائدة من ذلك , فحجم الخط بالقائمة المنسدلة الموجودة بملفك طبيعى ويرى بالعين المجردة فلا داعى لكل ذلك .... الا انه يمكنك استخدام هذا الكود بحدث الورقة
واليك الملف مرة أخرى
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo xErr
If Target.Validation.Type > -1 Then
ActiveWindow.Zoom = 140
Exit Sub
End If
xErr:
ActiveWindow.Zoom = 100
End Sub
data Validation.xlsm