Macro to repeat action too a range of cells with assending numbers in the cells.

No sure how to word what I am trying to do.
but I have a LARGE sheet where I need a group of cells with the same data to be merged...

Dim lngRow As Long
Dim LookUpRow As String

For lngRow = 7 To 1350

' select 12 cells to perform the task each set of 12 cells contain the year 1901, 1902, 1903....

Range("A7:A18").Select ' 1900 Group of 12 cells in column
With Selection ' Macro task to perform on the Cells
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 90
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

LookUpRow = Cells(lngRow, 12).Value ' sort of lost on how to repeat the maco of the next set of 12 cells in column A

Next

End Sub

Any Ideas....

Originally Posted by 2k05gt

No sure how to word what I am trying to do.
but I have a LARGE sheet where I need a group of cells with the same data to be merged...

Please Login or Register  to view this content.

Any Ideas....

Try this:

Please Login or Register  to view this content.

Thanks that did it..