The macro in the response does not help for the following spreadsheet format.

12 active cell (macro is run from the active cell)
22
44
--
l-hawk


"Gary''s Student" wrote:

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