incrementing a cell value
 

how can i shorten this?

ActiveCell.Offset(0, 1 - ActiveCell.Column) = ActiveCell.Offset(0, 1
ActiveCell.Column) +1

incrementing a cell value
 

What are you trying to do?

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Jay Fincannon" wrote in message
...
how can i shorten this?

ActiveCell.Offset(0, 1 - ActiveCell.Column) = ActiveCell.Offset(0, 1
ActiveCell.Column) +1

incrementing a cell value
 

With Cells(ActiveCell.Row, "A")
.Value = .Value + 1
End With


--
---
HTH

Bob


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



"Jay Fincannon" wrote in message
...
how can i shorten this?

ActiveCell.Offset(0, 1 - ActiveCell.Column) = ActiveCell.Offset(0, 1
ActiveCell.Column) +1