Hello John,
Replace this line of code...
activecell.offset(1,0).select
With...
With ActiveCell
..Offset(1, 0).Value = .Text & .Row
End With
Sincerely,
Leith Ross
--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile:
http://www.excelforum.com/member.php...o&userid=18465
View this thread:
http://www.excelforum.com/showthread...hreadid=561330