not quite sure what you want here but

For i = Cells(Rows.Count, "a").End(xlUp).Row To 12 Step -3
range(cells(i,"c"),cells(i,"o")).mergecells=true
next


--
Don Guillett
SalesAid Software

"Kate" wrote in message
oups.com...

Using that theory, how do you select actual cells?

For i = Cells(Rows.Count, "a").End(xlUp).Row To 12 Step -3
Range("Ci:Oi").Select
with selection
.mergecells = true
end with
next

clearly you can't go Ci:Oi, so what would you use?