تعديل في نطاق كود

[إيهاب عبد الحميد]

السلام عليكم أساتذتي وإخواني
بارك الله في مجهودكم
هذا الكود يكبر زوم الشاشة إذا وقفت على الخلية D1 
المطلوب هو أن يتم تشغيل الكود إذا وقفت على أي خلية في العمود D  وليس D1 فقط
 

(Private Sub Worksheet_SelectionChange(ByVal Target As Range

  If Target.Address = "$D$1" Then
    ActiveWindow.Zoom = 120
  Else
    ActiveWindow.Zoom = 80
  End If
End Sub

[سليم حاصبيا]

استبدل الكود بهذا

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 4 Then _
      ActiveWindow.Zoom = 120 Else _
      ActiveWindow.Zoom = 80
End Sub