Detect cells where text doesn't fit

Hi,

I have a table where I want my macro to check each cell in column F and for each cell where the text doesn't fit in the cell, I want the height of the row to be doubled and "wrap text". I don't want any changes in the width of my column.

Here is the code I tried:

Please Login or Register  to view this content.

I receive this error : Application-defined or Object-Defined error.

Please Login or Register  to view this content.

Corresponds to the range I want the macro to carried out. My header is in cell F2 and I don't want to include it (offset (1,0) ) and then I resize to the size of the column.

Thanks for your help,

Charles

It's working fine. Thank you very much !

Charles