Magnified Dropdown lists

[HappyChappy]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Column
Case "2", "7", "11", "13"
ActiveWindow.Zoom = 130
Case Else
ActiveWindow.Zoom = 65
End Select
If Target.Address = "$D$1" Then ActiveWindow.Zoom = 130
End Sub

This code work's great it acts on a single cell or whole column it was a solution by a member of the group and it works .
But there is always a but, I was wondering can it be adapted to cover a range of cells rather then coloums. ie: d1:d20 and f1:f20 etc because some of my columns layout changes after row 20 and i dont want the whole column to be magnified.

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified  3/14/2020  6:24:02 AM  EST
If Target.Row < 21 Then
Select Case Target.Column
Case "4", "6"
ActiveWindow.Zoom = 130
Case Else
ActiveWindow.Zoom = 65
End Select
If Target.Address = "$D$1" Then ActiveWindow.Zoom = 130
End If
End Sub

 

[mikerickson]

Something like this perhaps

If Application.Intersect(Target, Me.Range("D1:D20, F1:F20")) Is Nothing Then
    ActiveWindow.Zoom = 65
Else
    ActiveWindow.Zoom = 130
End If

 

[HappyChappy]

mikerickson, sorry nothing happens

 

[My Aswer Is This]

mikerickson, sorry nothing happens

So how about my script?

 

[HappyChappy]

this is good but i want to cover multiply ranges at various parts of the worksheets for instance d1:d20 F1:f20 f35:f:50 r:20:r:39

 

[My Aswer Is This]

this is good but i want to cover multiply ranges at various parts of the worksheets for instance d1:d20 F1:f20 f35:f:50 r:20:r:39

To get what you want you must be specific. You never mentioned this.
So we need all specific Ranges.

 

[MARK858]

Mike's code works fine for me in a Worksheet event code in the sheet module Have you disabled events?

 

[HappyChappy]

where do i disable events?

 

[MARK858]

You don't want to. Run the below to make sure that they are enabled then try Mike's code inside a Worksheet event code.

Sub enanableit()
Application.EnableEvents = True
End Sub

If it still doesn't work post in the thread the complete code that you are using and are you getting any error messages?