Проблема с OnKey

[DimR]

1.Отчего не работает OnKey?(или может тут не в онкее дело..)

Sub DimR()
Application.OnKey "0", "Func"
End Sub

Sub Func()
Dim sheetname As String, name As String, i As Double
sheetname = InputBox("Введите имя создаваемого рабочего листа")
Worksheets.Item(1).name = sheetname
ActiveWorkbook.Worksheets.Add
ActiveWorkbook.Save
End Sub

2. Как программно проверять наличие уже имеющихся листов с таким же названием,как у создаваемого,и дубликаты либо удалить,либо переименовать по выбору пользователя?

[EducatedFool]

Отчего не работает OnKey?

Процедура Sub Func() должна находиться в стандартном модуле, а не в модуле листа или книги.

Как программно проверять наличие уже имеющихся листов с таким же названием,как у создаваемого

Ответ есть здесь: http://msoffice.nm.ru/faq/macros/worksheets.htm#faq94