Macro to fine tallest rwo height in range and make all row that height

[tonywatsonhelp]

Hi Everyone,

I have a range of 6 rows

A50:A56

all I want is a macro that when run works out which row is tallest and makes them all that height?

please help if you can

Thanks

Tony

 

[Fluff]

How about

Sub RwHite()
   Dim i As Long, rh As Double
   For i = 50 To 56
      If rh <= Rows(i).RowHeight Then rh = Rows(i).RowHeight
   Next i
   Rows("50:56").RowHeight = rh
End Sub