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