Sub Tester() ' YOU MUST SELECT THE DESIRED RANGE BEFORE RUNNING THIS MACRO
Mult = 5.42 ' the multiple to equal rowheight to column width
'Selection.RowHeight = (Cells.ColumnWidth + 0) * Mult ' to do complete sheet
Selection.RowHeight = (Selection.ColumnWidth + 0) * Mult 'to do only selected range
End Sub