Unless the height of the rows has already been set to "At Least", or "Exactly", there is no way to determine the current height of the row. Querying the row height in VBA will return a value of "Undefined".

You will need to decide what the minimum height should be, then modify the code in post #2 to set the Height property