Sub test ()Dim i as IntegerDim range1 as Rangefor i = 1 to 6Set range1 = Range( "C" & i + 3 & ":T" & i + 9)range1.
tw.knowledge.yahoo.com