sendkeys string
Try instead:
Sub lop()
For count = 1 To 3
SendKeys String:="={left}-4~{down}"
DoEvents
Next count
End Sub
The DoEvents is nice if you want to send keystrokes to more than one cell.
It alows time for the cells to accept the keys within the loop
--
Gary''s Student - gsnu200720
"hawki" wrote:
I assigned a shortcut key to a macro using "ctrl" and a letter. The
following "sendkeys string:=" does not function as desired when using the
shortcut key. If I run the macro without the shortcut key, the macro runs
properly. Is there a remedy so that the macro may run using the shortcut
key? The macro line is as follows:
Sub lop()
For count = 1 To 3
SendKeys String:="={left}-4~{down}"
Next count
End Sub
--
l-hawk
|