Merge issue

[aoucharla]

Hi,

I have used the below code to merge 2 particular cells. The first line with the merge statement is working fine. But the alignement part which i have written after the merge is not having any impact on the contents of the merged cell, Can some body help?


.Cell(i, q).Merge MergeTo:=.Cell(i, q + 1)

With .Rows(i).Cells(q).Shape.TextFrame

.VerticalAnchor = msoAnchorMiddle
.MarginLeft = 0
.MarginTop = 0
.MarginRight = 0
.MarginBottom = 0

End With

[John Wilson]

It should work though the difference in appearance may be small. What are you hoping it will look like? Have you checked the vertical alignment from Right click > Format shape > textbox?