You had an "End With" at the end without a with at the start. All you need
is this


Cells.RowHeight = 31.5
Range("a5,a26,a47,a68,a89,a110,a131") _
.EntireRow.RowHeight = 40.5

' End With
End Sub

--
Don Guillett
SalesAid Software

"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.