for loops

[MAMIBUSSOL]

is it possible to re-code this into a for loop

    Range("A5:D5").MergeCells = True
    Range("A6:D6").MergeCells = True
    Range("A7:D7").MergeCells = True
    Range("A8:D8").MergeCells = True
    Range("A9:D9").MergeCells = True
    Range("A10:D10").MergeCells = True
    Range("A11:D11").MergeCells = True
    Range("A12:D12").MergeCells = True
    Range("A13:D13").MergeCells = True
    Range("A14:D14").MergeCells = True
    Range("A15:D15").MergeCells = True
    Range("A16:D16").MergeCells = True
    Range("A17:D17").MergeCells = True
    Range("A18:D18").MergeCells = True
    Range("A19:D19").MergeCells = True
    Range("A20:D20").MergeCells = True
    Range("A21:D21").MergeCells = True
    Range("A22:D22").MergeCells = True
    Range("A23:D23").MergeCells = True
    Range("A24:D24").MergeCells = True
    Range("A25:D25").MergeCells = True
    Range("A26:D26").MergeCells = True
    Range("A27:D27").MergeCells = True
    Range("A28:D28").MergeCells = True

 

[Alpacino]

Try this untested

Dim i as integer

For i = 5 to 28

Range(Cells(i,1),cells(i,4)).MergeCells = True

Next i

 

[jim may]

SURE,,,,,,,,,,,,

Sub Foo()
Dim i As Long
Application.DisplayAlerts = False
For i = 5 To 28
Range(Cells(i, 1), Cells(i, 4)).MergeCells = True
Next i
Application.DisplayAlerts = True
End Sub