And even further like this..........


For Each rcell In _
ActiveSheet.Range("I6:P7, I9:P13, U6:X7, U52:X52, Q55:T55")
rcell.ClearContents


Gord

On Tue, 15 Jan 2008 14:08:14 -0800 (PST), JP wrote:

You could condense it down even further like this

Range("I6:P7").ClearContents
Range("I9:P13").ClearContents
Range("U6:X7").ClearContents
Range("U52:X52").ClearContents
Range("Q55:T55").ClearContents


--JP

On Jan 15, 3:48*pm, FSt1 wrote:
hi
the select statment is not needed in this case so it can be iliminated. also
the small scroll is not needed. in coding *the scroll and select are only
good if you are watching the macro to stuff in design mode. in run mode
usually, things are happening too fast.
Range("I6:P6").ClearContents
* * Range("I7:P7").ClearContents
* * Range("I9:P9").ClearContents
* * Range("I10:P10").ClearContents
* * Range("I11:P11").ClearContents
* * Range("I12:P12").ClearContents
* * Range("I13:P13").ClearContents
* * Range("U6:X6").ClearContents
* * Range("U7:X7").ClearContents
* * Range("U52:X52").ClearContents
* * Range("Q55:T55").ClearContents

regards
FSt1