Listbox Help

  • Thread starter Thread starter lehainam
  • Start date Start date
L

lehainam

Dear all,

I have a listbox in Excel, I created a code that when user press Esc
Key the list box become invisible:

Private Sub LstCreditor_KeyPress(ByVal KeyAscii As
MSForms.ReturnInteger)
Select Case KeyAscii
Case 27
LstCreditor.Visible = False
End Select
End Sub

But when user presses Esc Key the Excel file trigger a bug and then
automatically exit from Excel.

Could any help me!

Thanks in advance

Nam
 
It crashed for me, too.

But this seemed to work ok:

In that sheet's module:
Option Explicit
Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 27
ActiveCell.Activate
Application.OnTime Now + TimeSerial(0, 0, 1), "hideLB1"
End Select
End Sub

In a general module:
Option Explicit
Sub hideLB1()

With Worksheets("sheet1")
.ListBox1.Visible = False
End With

End Sub
 
Back
Top