I'm new in macros, went through previous posts but can't make mine work.
I have a worksheet (MS office 2007) with table. I'd like to merge cell 1 and 2 in each columns till there is text in cell 1 and 2. Below is example for column A:
Sub Macro7()
'
' Macro7 Macro
'
'
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub
Thanks
Evgeny
I have a worksheet (MS office 2007) with table. I'd like to merge cell 1 and 2 in each columns till there is text in cell 1 and 2. Below is example for column A:
Sub Macro7()
'
' Macro7 Macro
'
'
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub
Thanks
Evgeny