Programatically merge every other row?

[David Bateman]

Sub TryNow()
Dim i As Integer
For i = 0 To 84
Cells(10, i * 3 + 1).Resize(1, 3).Merge
Next i
End Sub

Sorry it appears that I have to merge every other row. Can this be done?

 

[Bernie Deitrick]

David,

Sub TryNow()
Dim myRow As Long
Dim i As Integer
For myRow = 10 to 1000 Step 2
For i = 0 To 84
Cells(myRow, i * 3 + 1).Resize(1, 3).Merge
Next i
Next myRow
End Sub

HTH,
Bernie
MS Excel MVP