Change the KeyCode from 97 to 65 or, better, vbKeyA

If KeyCode = vbKeyA And Shift = 2 Then


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)


wrote in message
oups.com...
Hi,
I try to let VBA copy a listbox items when holding down the ctrl- and
pressing the a-key (select all).

Any suggestion on why this doesn't work?
Do I need to combine a KeyPressed event?

Thanks in advance

Regards

Frank

___________________________


Private Sub Listbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
Dim i As Integer
If KeyCode = 97 And Shift = 2 Then
For i = 0 To Listbox1.ListCount - 1
Listbox2.AddItem Listbox1.List(i)
Next i
End If
End Sub