Magnifying Dropdowns lists

[HappyChappy]

The following code was given to me by Member Yongle and it works great on a single column

VBA Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then ActiveWindow.Zoom = 130 Else ActiveWindow.Zoom = 65
End Sub

Can it be altered to cover multiple columns and also one for just acting on a single cell

 

[sykes]

Single cell...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Or Target.Address = "$H$9" Then ActiveWindow.Zoom = 130 Else ActiveWindow.Zoom = 65
End Sub

 

[HappyChappy]

That's great can it work on more than 1 column I have 4 columns with drop downs in them

 

[sykes]

....and, as long as you only want to do a few more columns, one "schoolboy" way to do it would be to just add the others in, thus:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target
    If .Column = 4 Or .Column = 5 Or .Column = 10 Or Target.Address = "$H$9" Then ActiveWindow.Zoom = 130 Else ActiveWindow.Zoom = 65
End With
End Sub

I'm sure that there's a neater way to iterate through other columns, but this'll do the trick.
Obviously, change the column numbers, to suit.

 

[HappyChappy]

Thank you for your help very much appreciated

 

[sykes]

Pleasure!
Presumably, you can see that in order to add more columns, you can just add more of the same syntax that I've already used.
What I was saying was, that to add quite a few more, there are much neater ways of doing it - like using an array, for example, but I thought that this would just get you going for now.

 

[HappyChappy]

works great so thankyou

 

[My Aswer Is This]

Try this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified  3/12/2020  4:01:33 AM  EST
    Select Case Target.Column
Case "4", "5", "10"
ActiveWindow.Zoom = 130
Case Else
ActiveWindow.Zoom = 65
End Select
If Target.Address = "$H$9" Then ActiveWindow.Zoom = 130
End Sub

 

[HappyChappy]

Deleted

 

[My Aswer Is This]

Not sure who your talking to. Someone sent you a video?
Did you try my script?