Regards all.
As an extention of this i had two different cells that i wanted to zoo
in on in the same way.

The first, as above, works fine but when i use the same code fo
another cell it fails. I'm sure this is just something to do with ho
i'm declaring the sub and tried changing the name - but unfortunatel
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 hel
pleas

--
chris10
-----------------------------------------------------------------------
chris100's Profile: http://www.excelforum.com/member.php...fo&userid=2516
View this thread: http://www.excelforum.com/showthread.php?threadid=38814