I get a No With error.

This works

Cells.RowHeight = 31.5
Rows("5:5").RowHeight = 40.5
Rows("26:26").RowHeight = 40.5
Rows("47:47").RowHeight = 40.5
Rows("68:68").RowHeight = 40.5
Rows("89:89").RowHeight = 40.5
Rows("110:110").RowHeight = 40.5
Rows("131:131").RowHeight = 40.5


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"Donna C" wrote in message
...
Here it is.
Cells.Select
Selection.RowHeight = 31.5


Rows("5:5").Select
Selection.RowHeight = 40.5
Rows("26:26").Select
Selection.RowHeight = 40.5
Rows("47:47").Select
Selection.RowHeight = 40.5
Rows("68:68").Select
Selection.RowHeight = 40.5
Rows("89:89").Select
Selection.RowHeight = 40.5
Rows("110:110").Select
Selection.RowHeight = 40.5
Rows("131:131").Select
Selection.RowHeight = 40.5
End With
End Sub
"John Bundy" wrote:

Microsoft is bad with these errors, it is almost certainly not your With
statement. Post the code and we'll see
--
-John
Please rate when your question is answered to help us and others know
what
is helpful.


"Donna C" wrote:

I keep getting a compile error that says
Expected End With
I can't seem to figure whats going on.
Any Suggestions???
Thanks in advance
Donna C.