Sub enter_one()
With ActiveCell
.Value = 1
.Offset(1,0).Select
End With
End Sub

But wouldn't it be just as easy to type 1 then ENTER?

There must be more to this than what you describe.


Gord

On Thu, 10 May 2012 09:30:27 +0000, Helpmacro
wrote:


Hi,

Currently looking for a simple macro that will type the number 1 and
shift down a cell and continue to do so each time the macro is pressed,
hoping this is possible sorry if it is not, relatively new to Excel and
macros.

Thanks in advance.