View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ed[_9_] Ed[_9_] is offline
external usenet poster
 
Posts: 194
Default "Each Row from there to here"?

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