Perhaps replace
Range("I1", Cells(Rows.Count, "I").End(xlUp))
with
Range("I1:I" & Range("I" & rows.Count).End(xlUp).row)
--
The Code Cage Team
Regards,
The Code Cage Team
'The Code Cage' (
http://www.thecodecage.com)
------------------------------------------------------------------------
The Code Cage Team's Profile:
http://www.thecodecage.com/forumz/member.php?userid=2
View this thread:
http://www.thecodecage.com/forumz/sh...ad.php?t=33071