There is one thing that needs changed actually. Change:
ActiveCell.Offset(-r2, -2).Activate
to
If ActiveCell.Column < 1 Then ActiveCell.Offset(-r2, -2).Activate
--
Ikaabod
------------------------------------------------------------------------
Ikaabod's Profile:
http://www.excelforum.com/member.php...o&userid=33371
View this thread:
http://www.excelforum.com/showthread...hreadid=542520