Originally Posted by
chris100
Regards all.
As an extention of this i had two different cells that i wanted to zoom in on in the same way.
The first, as above, works fine but when i use the same code for another cell it fails. I'm sure this is just something to do with how i'm declaring the sub and tried changing the name - but unfortunately i'm still a looong way from being an expert at this sort of thing!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$M$5:$O$5" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub
Private Sub Worksheet_SelectionChange1(ByVal Target As Range)
If Target.Address = "$c$69:$d$69" Then
ActiveWindow.Zoom = 110
Else: ActiveWindow.Zoom = 35
ActiveWindow.ScrollColumn = 1
End If
End Sub
I'm sure this is something relatively simple so if anyone could help please
Bookmarks