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

lehainam wrote:

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

--
lehainam
------------------------------------------------------------------------
lehainam's Profile: http://www.excelforum.com/member.php...o&userid=18615
View this thread: http://www.excelforum.com/showthread...hreadid=384434

--

Dave Peterson