Loop Command to unmerge existing merge cells

[ahlecks]

hello guys,

i have this macro generated command which is very long and when run will pop-up an error which is it is too long to compile. if i'm right, this can be done through looping command. can anyone help how to make this into a looping command?

thank you!


Sheets("1").Select
Range("A11:C191").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True

[royUK]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

[ahlecks]

hello guys,

i have this macro generated command which is very long and when run will pop-up an error which is it is too long to compile. if i'm right, this can be done through looping command. can anyone help how to make this into a looping command?

thank you!


[b] Sheets("1").Select [b]
[b] Range("A11:C191").Select [b]
[b] With Selection[b]
[b] .HorizontalAlignment = xlGeneral[b]
[b] .VerticalAlignment = xlCenter[b]
[b] .WrapText = False[b]
[b] .Orientation = 0[b]
[b] .AddIndent = False[b]
[b] .IndentLevel = 0[b]
[b] .ShrinkToFit = False[b]
[b] .ReadingOrder = xlContext[b]
[b] .MergeCells = True[b]
[b] End With[b]
[b] With Selection[b]
[b] .HorizontalAlignment = xlGeneral[b]
[b] .VerticalAlignment = xlCenter[b]
[b] .WrapText = False[b]
[b] .Orientation = 0[b]
[b] .AddIndent = False[b]
[b] .IndentLevel = 0[b]
[b] .ShrinkToFit = False[b]
[b] .ReadingOrder = xlContext[b]
[b] .MergeCells = True[b]
[b] End With[b]
[b] With Selection[b]
[b] .HorizontalAlignment = xlGeneral[b]
[b] .VerticalAlignment = xlCenter[b]
[b] .WrapText = False[b]
[b] .Orientation = 0[b]
[b] .AddIndent = False[b]
[b] .IndentLevel = 0[b]
[b] .ShrinkToFit = False[b]
[b] .ReadingOrder = xlContext[b]
[b] .MergeCells = True[b]
[b] End With[b]
[b] With Selection[b]
[b] .HorizontalAlignment = xlGeneral[b]
[b] .VerticalAlignment = xlCenter[b]
[b] .WrapText = False[b]
[b] .Orientation = 0[b]
[b] .AddIndent = False[b]
[b] .IndentLevel = 0[b]
[b] .ShrinkToFit = False[b]
[b] .ReadingOrder = xlContext[b]
[b] .MergeCells = True

[b]

i dunno if i did this right...

[ahlecks]

hello guys,

i have this macro generated command which is very long and when run will pop-up an error which is it is too long to compile. if i'm right, this can be done through looping command. can anyone help how to make this into a looping command?

thank you!


Sheets("1").Select
Range("A11:C191").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True

Sheets("1").Select
Range("A11:C191").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True