Sub Macro1()
ActiveCell.Value = ActiveCell.Value + 1
End Sub

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Westwolf" wrote in message
...
I am trying to create a macro to increase the value of any cell by a
constant, e.g., the number one. The VBA below keeps returning 4 even when
applied to a cell with, say 8 in it. I'd like the macro to return 9 in
that
case.

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/6/2008 by Robert G. Wood
'
' Keyboard Shortcut: Ctrl+m
'
ActiveCell.FormulaR1C1 = "=1+3"
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub