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

 

[HappyChappy]

Sorry your script was fine this is posted in wrong place it is for a variable dropdown list i will delete it and place it in the correct place.