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.

 

[HappyChappy]

I'm not home now but am I right in thinking the zoom figures are round the wrong way?

 

[MARK858]

Don't think so it zooms in when using column D and F.

 

[HappyChappy]

Entered Mikes code and nothing happens, Paste the alternative code it and it runs ok please help

 

[My Aswer Is This]

So lets start over.
What ranges are we working with

 

[My Aswer Is This]

The code you posted should look like this:
But I'm not sure if this is all the ranges you want.

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

 

[HappyChappy]

Works like a charm you sir are a diamond. thanks for the patience in showing me the path....

 

[HappyChappy]

The range i have is seven differnt ranges but just extrapolated from you code..

 

[My Aswer Is This]

Works like a charm you sir are a diamond. thanks for the patience in showing me the path....

Well glad you have something that works but I thought in previous post you said you had many more ranges.

 

[HappyChappy]

many more then two seven is many more. for now that's good the code can be expanded easily so it's all gravy.. Once again many thanks

 

[HappyChappy]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Me.Range("b3:b30, b47:b73, g3:g30, k3:k30, m3:m30, d1:d2, o4760")) Is Nothing Then
ActiveWindow.Zoom = 65
Else
ActiveWindow.Zoom = 130
End If
End Sub

my current code