Thread: Close drop box
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Joanne Joanne is offline
external usenet poster
 
Posts: 121
Default Close drop box

WIN XP Pro MSOffice 2003
I am using the following code to auto drop my dropbox on entering the
cell. It works well to drop the box, but then after the user makes a
choice, the box will not close and allow us to move to the next cell.

Could someone tell me what is missing here?
BTW, kudos to GTVT06, who gave me this code in answer to my earlier SOS
on this forum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 8 Then
ActiveCell.Offset(1, -6).Select
End If
On Error GoTo Endw
If ActiveCell.Validation.Type = 3 Then
With Selection
SendKeys "%{down}"
End With
End If
Endw:
End Sub

Thank you
Joanne