Adjusting Row Height when Wrapping Text

As a matter of general interest Ed (in 2015) asked about calulating the combind width of cells. The following does this.

Function getWidth(ref As Range) As Integer
Dim c As Range, w As Long
For Each c In ref
w = w + Round(c.Width * 0.186, 0)
Next
getWidth = w
End Function

Entered as =GETWIDTH(C1:F1)

Unfortunately, even for un-merged/single cells, AutoFit Row Height doesn’t seem to work. Something to do with cells that have undergone manual height adjustment at some point permanently inactivates AutoFit Row Height? Any help much appreciated.

@Allen: Thanks again for a useful site & newsletter - I enjoy the personal touch in the newsletters as well as the helpful tips.

As far as this tip is concerned, two comments:
1) a quick attempt showed that it may be possible to dispense with your steps 6 and 7 if, instead of putting the dummy cell (P55 in your example) way below and to the right of the data, put it on the same row as your merged cell but well over to the right of the data (P2 in your example). An auto-resize on the worksheet will set the correct height for this row. Reminder on auto-resize: Type Control-A to select the entire worksheet then double click with a double arrow on any column or row border. For some unknown reason, I had to use a fudge factor of +2 instead of Allen's -2 on the text I used if I wanted the appearance of A2:C2 to be the same as that of P2; otherwise the line breaks occurred in slightly different places.
2) If your merged cells are centre aligned, then consider using "Center across Selection" as the horizontal alignment instead of using "Merge and Center" on the cells.

@Kevin: I have also fallen into the trap of writing an answer on a post, then finding that the post was pretty old;-}} By the way, imo methods involving the number of characters (i.e. using the length function) only work well if you are using a non-proportional font like Courier.

@Ed: you could use a formula like =CELL("width",A2)+CELL("width",B2)+CELL("width",C2) to show you the combined widths of columns A to C, but a) the formula will only work where the cells in the row referred to are not merged (if they're merged you get a SPILL error, but the workaround is easy - just refer to a row which is outside your data), and b) if the problem only occurs once in a worksheet it may easier to just count and add.

Hi John - Read and created before looking at your date of enquiry so in the unlikely event that you or anyone else is still looking for this.
My example was based around adjusting the row height for text that was only either 1 or 2 rows of text.
You might be able to work your own solution based on these crude methods.
This example relates to - On the worksheet a formula to indicate the length of text (=LEN(V62) at Z62 Where the first cell of the merged cells was V62
Within your Macro parts
Dim r As Variant
' Make the Row Heights suit the text of the Prizes
r = "62" ' Row height to change
If Rows(r).EntireRow.Hidden = True Then
Else
If Sheets("Yours").Range("Z62").Value > 42 Then
Rows(r).RowHeight = 30
Else
Rows(r).RowHeight = 15
End If
End If

Good luck

Any way to programmatically calculate height of wrapped text? I need to do this because I programmatically insert pictures to rows and adjust row height to fit the picture. This way, pictures are displayed alright. But some rows are not tall enough to display wrapped text. I need a way to calculate and adjust the height of wrapped text so all text is displayed.

What is the easiest way to (step 4) "calculate the combined width of all the cells that make up the merged cell"?
Given that I do not want to change the width of those columns. Is there anything faster than checking them each, one at a time?