Merge Every 9 cells

[TenDollarTypo]

Sub SelectEvery9Rows()

Dim MyRange As Range
Dim RowSelect As Range
Dim i As Integer
Set MyRange = Selection
Set RowSelect = MyRange.Rows(9)

For i = 9 To MyRange.Rows.Count Step 9

Set RowSelect = Union(RowSelect, MyRange.Rows(i))

Next i
Application.Goto RowSelect

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel 0
.ShrinkTorit = False
.ReadingOrder = xlContext
.MErgeCells = False

End With
Selection.Merge
End Sub

Keep getting an error is there something wrong with the code?

 

[jasonb75]

I can see 2 errors in this part, the first line is missing the =, the second has a spelling error.

.IndentLevel 0
.ShrinkTorit = False

There are a couple of things in your code that don't make sense but I think that this corrected code will do what you want.

Sub MergeEvery9Rows()

Dim rng As Range, i As Long

For i = 1 To Selection.Rows.Count Step 9
    
    With Selection(i).Resize(9)
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
        .Merge
    End With
Next
End Sub