Row Height adjusted based on content via code or Macro

[SBass]

I have a worksheet that contains two cells that are populated via a series of nested IF statements based on the contents of another cell. The issue is that one of the statements generates a MUCH longer text string than the other two options. To make the text appear aesthetically pleasing, the rows need to be at a height of 40 for the longer string, but only 15 for the other strings. I realize that I can't accomplish this with conditional formatting, but there has to be a way to do it. I'm open to ideas/suggestions, even if it includes simple code or a macro.

 

[mumps]

The following macro will set the 'Wraptext' feature to "True" changing the row one height to fit the text.

Sub test()
    Range("A1").WrapText = True
End Sub

 

[SBass]

I have the Text Wrap turned on for the cells, but it is not adjusting the row height for those two cells only. It does it in all other cells. I think that is because we don't actually manually enter data in those cells, because I believe that is when that adjustment is normally made in Excel.

 

[mumps]

Unfortunately, Text Wrap affects the whole row.

 

[SBass]

Maybe I didn't explain my question clearly. Cell A73 populates based on the content of B8. There are 3 options that it will populate with. 2 are short & the same length, but the 3rd is 3 times as long. What I want is for Excel to adjust the cell height when that 3rd option is the one that fills cell A73.

 

[mumps]

Is the contents of B8 entered manually or is it the result of a formula? Can you tell me the length of the 2 shorter options including any spaces?

 

[SBass]

The contents of B8 is populated using a data validation drop-down. The options for A73 are either 9 characters or 62 character's (with spaces).

 

[SBass]

My cell width for A73 is 20.43.

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in B8.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B8")) Is Nothing Then Exit Sub
    If Len(Target) > 9 Then
        Range("A73").WrapText = True
    End If
    Range("A73") = Target
End Sub

 

[SBass]

That is inserting the text from B8 into A73.