Clara,

to get you started, the code below will loop through rows 1 to 10, merge col
A and B, turn on text wrap and set a border around the merged cell.

Dim i As Integer
For i = 1 To 10
With ActiveSheet.Range("A" & i & ":B" & i)
.Merge
.WrapText = True
.BorderAround xlContinuous, xlThin, xlColorIndexAutomatic
End With
Next i

--
Hope that helps.

Vergel Adriano


"clara" wrote:

Hi all,

I have to format some cells ( such as merge, setting border, font size etc)
in one row and repeat the same in the next and next. It is boring and
inconsistency-prone. Is there a simple way to duplicate the formatting.

Clara
--
thank you so much for your help