...and all those clear contents lines can be reduced to one:
Range("H6:M9,O6:Q8,H10:H13,I11:M11,J10,J13,O11:Q11 ,O12,O15:Q15,O16,H15:M20").ClearContents


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=124339