"add one" Macro

[mccornack]

I have a project I'm working on for work, and it would be fantastic if I could select a cell or a range of cells, hit a hot key, and have that cell or set of cells increase by 1. Is there a way to set up a macro, or write some piece of VBA code to achieve this? I spent more time today trying to teach myself how to record and execute macros than I did on my actual project. Any help would be greatly appreciated!

 

[Rick Rothstein]

Select the cell or cells that you want to add one to (text and blank cells will be ignored) and give this macro a try...

Sub AddOne()
  Dim Cell As Range
  On Error Resume Next
  For Each Cell In Selection
    If Len(Cell.Value) Then Cell.Value = Cell.Value + 1
  Next
End Sub

 

[mccornack]

This is perfect! Thank you!

 

[drewbsking]

PERFECT THANK YOU! Im learning!