The below code does that too.. Only in D2 the zoom is set to 200.
--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

My b ... figured that out before I read this and it's working, now. Thanks.
One (last) question ... is there an afterupdate method? After this is
updated, I want to move to another cell to restore the original size.

Thanks.

"Jacob Skaria" wrote:

You should have pasted the code within the procedure/ Please try....

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

This doesn't appear to work ... I'm getting INVALID OUTSIDE PROCEDURE (Target
highlighted).

"Jacob Skaria" wrote:

Try this.....

If Not Application.Intersect(Target, Range("$D$2")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If

If this post helps click Yes
---------------
Jacob Skaria


"G" wrote:

I understand that there's no way to control the font SIZE for dropdown text
using validation (Excel 2002).

I'm trying to simulate an onfocus event to change the display percentage to
200% when cell D2 is selected, but it isn't working.

Here's the code, can anyone tell me what I'm doing wrong?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$2" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

Thanks, in advance, for your help.

G