Macro to set all rows to the height in column A

[tonywatsonhelp]

Hi Everyone,

I need a macro than can set all the rows in range A8:A308 to the row height in there cell

So I've set row heights in each cell of range A8:A308 i want a macro to go down the rows and set the height of each row to whats in columnA

please help if you can

Thanks

Tony

 

[Fluff]

Not sure I understand what you want.
If you've already set the row height, why do you need a macro?

 

[tonywatsonhelp]

ok so i have revised what i need and this is now what i want,
A macro to go down the range and if value in column A does not match value in columnB then set that rows height to value in A
i realise this is alittle different to what i said above but should be quicker.
hope that helps

 

[Fluff]

How about

Sub tonywatson()
   Dim Cl As Range
   
   For Each Cl In Range("A8", Range("A" & Rows.Count).End(xlUp))
      If Cl.Value <> Cl.Offset(, 1).Value Then Cl.RowHeight = Cl.Value
   Next Cl
End Sub

 

[tonywatsonhelp]

Thanks fluff this i sperfect

 

[Fluff]

You're welcome & thanks for the feedback.