Macro to adjust row height to show all text in merged cell

Hi All,

I require some help in writing a code in VBA that adjusts the row height to show all the text which is in the merged cells of different rows.

Some rows contains a merged cell that extends from column F to S, that has alignment formatting of Horizontal: Left Indent, Vertical: Top, Wrapped=True

These merged cells contain fairly lengthy text, so with the settings as above, i just need to adjust the row heights of each to show all the text. This becomes quite a task considering there are about 50 rows on 5 different sheets, so I want a macro to do it.

so far i have only been able to come up with a code that performs the task on one merged cell i.e. when its the active cell

Please Login or Register  to view this content.

what i need is for the macro to do is:

1)search through the range A3:A100 looking for any cells that contain text or just <>"".
2)for each cell that it finds, i want it to adjust the row height so that all the text in the cell is shown.

I am attempting to develop a work around and to date have the below:

Please Login or Register  to view this content.

As may be apparent tomost of you, the above work around is incorrect. Any help modifying the first code in order to perform the two noted tasks would be greatly appreciated.

Best,

Joe