Seeking Code / Macro to Edit Row Height

[ProphetYxez]

I piece together weekly reports for my team.
I keep row heights at a minimum 75.00, 100 pixels and maximum 203.25, 271 pixels.
To take a lot of time out of this task and make it automated, I would like to conditionally format (though probably not possible based on my research) or enter a code / macro that will do the following:

If row height < 100 pixels, make 100 pixels (or input 75 for "100", however Excel will understand)
If row height > 271 pixels, make 271 pixels (or input 203.25 for "271", however Excel will understand)

MANY thanks in advance

 

[rpaulson]

Sub do_it()
For r = 2 To 50 'adjust as needed
    If Rows(r).RowHeight < 100 Then Rows(r).RowHeight = 100
    If Rows(r).RowHeight > 271 Then Rows(r).RowHeight = 271
Next r
End Sub