Try worksheet selection change event (in the worksheet module)
(set $A$1 to your cell, use $ signs) (set the zoom values to whatever)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
ActiveWindow.Zoom = 100
Else: ActiveWindow.Zoom = 50
End If
End Sub

--
steveB

Remove "AYN" from email to respond
"chris100" wrote in
message ...

Hello.

Just a quick one. I need a code for the following action:

Click on cell
Zoom in by 'X' percent
then on 'OffClick' to zoom out again to 'X' Percent

(the reason i need this is that i am using a pull down list which at
50% is impossible to read)

Thanks.


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