here we go, this works

'add row number at the end of the file
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.Offset(0, 1).Select
ActiveCell.FormulaR1C1 = "=ROW()"
Selection.Copy
Range(Selection, Selection.End(xlUp)).Select
ActiveSheet.Paste


--
swtransaction
------------------------------------------------------------------------
swtransaction's Profile: http://www.excelforum.com/member.php...o&userid=37459
View this thread: http://www.excelforum.com/showthread...hreadid=571370