Hello!
Can you help me, please?
1) I have several sheets where users have to insert only one digit into several cells.
2) However there are other sheets where several digits have to be inserted into several cells by users.

I would like to give the possibility to insert one digit and select the following cell automatically without pressing "Enter".

I use both the numberpad and the numbers from the keyboard.

My code in workbook_open:
Application.OnKey "1", "insert_1"
Application.OnKey "{97}", "insert_1"
Application.OnKey "2", "insert_2"
Application.OnKey "{98}", "insert_2"

and so on.

My code in a module:
Sub insert_1()
If ActiveSheet.Name like "abc*" then
Activecell.Value = 1
Else
...
End If
End Sub

Sub insert_2()
If ActiveSheet.Name like "abc*" then
Activecell.Value = 2
else
...
End If
End Sub

and so on.

That works fine.

But If I want to insert digits into the other sheets nothing happens, because the condition doesn't match (other Sheet.Names).
How can I continue my If part with else? Users should be able to use the numbers as usually. Is that possible?

Thank you very much!

Wolli