Application.OnKey. В чём ошибка?

[DimR]

Sub лаба()
Dim a As String
Dim clava As String

ana = CStr(Key)
Cells(1, 1) = ana

Application.OnKey "1", "iihaaa1"
End Sub
___________________________________ _________

Sub iihaaa1()

For i = 1 To Worksheets.Count - 1
If Worksheets(i).Name = "1" Then
Application.DisplayAlerts = False
Worksheets(i).Delete
Application.DisplayAlerts = True
ana = True
End If
Next i
Application.Worksheets.Add
Worksheets(1).Name = "1"
ActiveWorkbook.Save
End Sub

Кусок кода для единицы...не работает,не знаю,в чём ошибка...

[IgorGO]

Не видно ошибок.
только надо 1 разок процедуру лаба выполнить. тогда клавише 1 будет назначена процедура "iihaaa1".
учтите, что единицу теперь не набрать.