In my procedure i use this code ....
Sub DisableCancel()
Application.EnableCancelKey = xlDisabled
For i = 1 To 60000
Cells(i, 1) = i
Next
Application.EnableCancelKey = False
End Sub


just replace
For i = 1 To 60000
Cells(i, 1) = i
Next

by your code
--
Regards,

Halim



"Alice" wrote:

How do I Lock Keyboard input while running Macro? User can press Esc Key to
stop a Macro from running, how do I prevent this?