I have produced some event code which altomatically simulates clicking the
drop arrow box and zooms the display for ease of reading whenever a cell
referring to a validation list is selected. I want the zoom to return to its
previous lower setting once a selection has been made from the dropdown list,
but at the moment I have to select another cell in order for this to happen
(see code below).

Is it possible to trap the action of selecting an item from the drop down
list, so I can reset the zoom without having to set another cell first?

Here's the code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.Zoom = 70
If Target.Cells.Count = 1 Then 'Check that the selected cell is a single
cell
If Not Intersect(Target, Range("ColPhase")) Is Nothing Then
ActiveWindow.Zoom = 150
Application.SendKeys ("%{DOWN}")
End If
End If
End Sub

Regards & thanks in advance!

Pete

I just realised that my question doesn't make any sense...

What I meant was, if I click a cell in "ColPhase", the zoomup takes place
correctly.
When I make a selection from the dropdown list, the zoomdown takes place
correctly. If, however I want to click the dropdown button again on the SAME
cell, the zoom DOESN'T work (because I haven't changed the selected cell).
What I want to do is trap the event of clicking the dropdown arrow to see if
I can zoomup again without selecting another cell in "ColPhase".

Does this make more sense?

Thanks

Pete

"Pete Rooney" wrote:

I have produced some event code which altomatically simulates clicking the
drop arrow box and zooms the display for ease of reading whenever a cell
referring to a validation list is selected. I want the zoom to return to its
previous lower setting once a selection has been made from the dropdown list,
but at the moment I have to select another cell in order for this to happen
(see code below).

Is it possible to trap the action of selecting an item from the drop down
list, so I can reset the zoom without having to set another cell first?

Here's the code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.Zoom = 70
If Target.Cells.Count = 1 Then 'Check that the selected cell is a single
cell
If Not Intersect(Target, Range("ColPhase")) Is Nothing Then
ActiveWindow.Zoom = 150
Application.SendKeys ("%{DOWN}")
End If
End If
End Sub

Regards & thanks in advance!

Pete

Maybe you could tap into the worksheet_change event.

There is a potential problem if you're running xl97 depending on how the
data|validation was created, though.



Pete Rooney wrote:

I have produced some event code which altomatically simulates clicking the
drop arrow box and zooms the display for ease of reading whenever a cell
referring to a validation list is selected. I want the zoom to return to its
previous lower setting once a selection has been made from the dropdown list,
but at the moment I have to select another cell in order for this to happen
(see code below).

Is it possible to trap the action of selecting an item from the drop down
list, so I can reset the zoom without having to set another cell first?

Here's the code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.Zoom = 70
If Target.Cells.Count = 1 Then 'Check that the selected cell is a single
cell
If Not Intersect(Target, Range("ColPhase")) Is Nothing Then
ActiveWindow.Zoom = 150
Application.SendKeys ("%{DOWN}")
End If
End If
End Sub

Regards & thanks in advance!

Pete

--

Dave Peterson