I would expect that you either need to remove the End With if there is
opening with statement. In the code that you posted, there is no
opening With statement.

I would suggest removing the end with.

theSquirrel


Donna C wrote:
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.