Resize rows in Range

[evandec]

Is it possible to look through all the rows in a range and resize them?

I am thinking something like:

sub resize_rows()
    dim rngloop as range

    Set rngloop = ActiveSheet.UsedRange
    
    for each row in rngloop
             'set row hight to 12.5
    loop
end sub

I have tried fidleing with this but haven't gotten great results.

 

[VoG]

You shouldn't need to loop - try

Sub resize_rows()
ActiveSheet.UsedRange.RowHeight = 12.5
End Sub