If activeCell.Row < 1 then _
ActiveCell.Value = ActiveCell.Offset(-1,0).Value + 1

--
Regards,
Tom Ogilvy

"stck2mlon " wrote in message
...
So if I want it to pik up the first cell in row 13 and place it in 14
would it look like this.

ActiveCell.Value = Cells(0, 13).Value = Cells(0, 13).Value + 1


---
Message posted from http://www.ExcelForum.com/