HappyChappy
Active Member
- Joined
- Jan 26, 2013
- Messages
- 378
- Office Version
- 2019
- 2010
- 2007
- Platform
- Windows
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.
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.