Help with a Macro

[Helpmacro]

Hi,

Currently looking for a simple macro that will type the number 1 an
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 an
macros.

Thanks in advance

 

[Gord Dibben]

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