Standard Row Height Across Sheets

E

elbows

I need to standardize the row height in about 50 different sheets, wher
the row height varies a lot by sheet. I only know how to do this b
row, which could take a while.

Is there a way to do this automatically?

Thanks.

-Lor
 
D

Don Guillett

this should do it
Sub rh()
For Each ws In Worksheets
ws.Rows("1:10").RowHeight = 22
Next
End Sub
 
D

DDM

Elbows, automatically? No. But here's the next best thing:

1-Right-click any worksheet tab and select Select All Sheets
2-Click the upper-left corner of the worksheet frame (to the left of Column
A and above Row 1) to highlight the entire sheet.
3-Pull down the Format menu and select Row > Height
4-Enter a row height value
5-Click OK
6-Right-click any worksheet tab and select Ungroup Sheets
 
Top