"Each Row from there to here"?
Sub TestRowHeight()
Dim rw As Long
Dim FirstRow As Long
Dim LastRow As Long
FirstRow = 2
LastRow = Range("B65536").End(xlUp).Row
For rw = LastRow To FirstRow Step -1
If Rows(rw).RowHeight < 25.5 Then Rows(rw).RowHeight = 25.5
Next rw
End Sub
Tested using Excel 97SR2 on Windows 98SE,
HTH
Paul
--------------------------------------------------------------------------------------------------------------
Be advised to back up your WorkBook before attempting to make changes.
--------------------------------------------------------------------------------------------------------------
I'm trying to set my row height if it's less than a certain height. The
code worked fine on the whole sheet, but errors out when I try to constrain
it to my used range. At the "For Each rw" line, I get a syntax error:
compile error. When it was "In Worksheets("Sheet1").Rows", it worked fine,
but did all my blank rows and my header, too!
Suggestions are appreciated.
Ed
Sub TestRowHeight()
Dim FirstRow As Long
Dim LastRow As Long
FirstRow = 2
LastRow = Range("B65536").End(xlUp).Row
For Each rw = LastRow To FirstRow Step -1
If rw.RowHeight < 25.5 Then
rw.RowHeight = 25.5
End If
Next rw
End Sub
|