Chris,

If you are trying to put both of these into the same Sheet Module,
its my understanding you can not put two "Worksheet_SelectionChange"
into the same module.
You have to combine the code into one
"Private Sub Worksheet_SelectionChange(ByVal Target As Range)"

this help?
Dave
chris100 Wrote:
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


--
Piranha
------------------------------------------------------------------------
Piranha's Profile: http://www.excelforum.com/member.php...o&userid=20435
View this thread: http://www.excelforum.com/showthread...hreadid=388140