Nam,

I came up with this, but it keeps crashing Excel for me. Try it anyway and
see if you get the same

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 27: ListBox1.Visible = False
End Select
End Sub


--
HTH

Bob Phillips

"lehainam" wrote in
message ...

Dear all,

I have created a listbox in Excel but I don't know how to make it
invisible when user presses Esc key as belows:

Private Sub Lst1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

End Sub

Could any one help me to create VBA code that when user presses Esc key
this listbox become invisible.

Thanks a lot!

Nam


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