one way:

Public Sub Merge3In10()
Dim i As Long
For i = 1 To Columns.Count - 3 - (Columns.Count Mod 3) Step 3
Cells(10, i).Resize(1, 3).Merge
Next i
End Sub




In article ,
"David Bateman" wrote:

I am using Microsoft Excel 2000. How can I write a macro which will
automatically merge every three cells in Row 10. That is merge column a, b,
c, then d, e, f etc.