P
Pete Rooney
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
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