macro: merge, wrap text, left justify and auto-fit

[ammon]

I am trying to write an excel macro that merges 4 cells in
4 columns, wraps the text, left justifies and adjusts the
row height so that all of the text is visible. I can get
everything to work but the adjusting of the row height.
The row height always adjusts to the default setting.
What is the fix?

Thanks,

John Ammon
(e-mail address removed)

 

[Popandopolo]

Hi,

Rows("1:1").RowHeight = 25

Cheers,
Pyzatiy Popandopolo

 

[Gord Dibben]

John

Merged cells will allow "wrap text" from Format>Cells>Alignment but..........

Excel has a problem auto-fitting merged cells.

You can resize manually or via Macro. Jim Rech has written
code for this which you can incorporate into your own code.

http://groups.google.com/groups?threadm=e1$1uzL1BHA.1784@tkmsftngp05

Note also a recent adaptation of this code by Greg Wilson.

http://makeashorterlink.com/?P37D24B15

Gord Dibben Excel MVP