Fit Row height VBA based on no of lines in a cell.

[krshnn]

I have an Excel sheet wherein different cells have different lines (which are already wrap text-ed). I need to fix the row height to 15 in case of one line in a cell, 30 in case of two lines,45 in case of 3 and so on (i.e., 15 pt per line) ..

Column in which the multiple line may occur is dynamic (i.e., it may occur on D3,C5,F4 and so on).

 

[Jimmypop]

Try...

Private Sub Worksheet_Activate()
    Cells.Select
    Selection.EntireRow.autofit
End Sub

 

[krshnn]

This achieves the wrap text objective but line no multiplied by points are not maintained.
But still, it is useful and I have saved this macro.
Thanks for your assistance.