Error permiso denegado con Sendkeys

Para evitar el Error permiso denegado con Sendkeys, procedemos de la siguiente forma:

Añadir este código a un módulo:

Public Sub Sendkeys(text as variant, Optional wait As Boolean = False)
   Dim WshShell As Object
   Set WshShell = CreateObject("wscript.shell")
   WshShell.Sendkeys cstr(text), wait
   Set WshShell = Nothing
End Sub

Fuente: https://stackoverflow.com/questions/2307738/sendkeys-permission-denied-error-in-visual-basic