ActiveX

To resize a cell based on the tallest data in that cell

At run time,

1. If your control contains more than one sheet, specify the sheet with which you want to work by setting the Sheet property.
2. Define the cell you want to resize with the Col and Row properties.
3. Return the minimum height necessary to display all the text within that cell with the MaxTextCellHeight property and assign it to a variable.
4. Set the RowHeight property to the variable from step 2.