Replace your code:
Code:
--------------------
Range("D18-1").Select
--------------------
with this code:
Code:
--------------------
ActiveCell.Offset(-1,0).Select
--------------------
Hope this helps,
theDude
--
theDude
------------------------------------------------------------------------
theDude's Profile:
http://www.excelforum.com/member.php...o&userid=16550
View this thread:
http://www.excelforum.com/showthread...hreadid=398734