Use: Set SheetShell = CreateObject("WScript.Shell") SheetShell.SendKeys "~", True

'for sending the "Enter" key for example.

This approach works consistently.

Using the Application.SendKeys "~", True approach will toggle the the Numlock On and Off if you run the the script multiple times (for example)