Hi,
Replace :
rngToDelete.EntireRow.Delete
By
rngToDelete.ClearContents
HTH
Carim
--
Carim
------------------------------------------------------------------------
Carim's Profile:
http://www.excelforum.com/member.php...o&userid=33259
View this thread:
http://www.excelforum.com/showthread...hreadid=531722