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.

or, from anywhere in the workbook. Notice the . placement

with worksheets("myworksheet")
..Cells.RowHeight = 31.5
..Range("a5,a26,a47,a68,a89,a110,a131").EntireRow. RowHeight = 40.5
End With


--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
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.

Glad to help.

--
Don Guillett
SalesAid Software

"Donna C" wrote in message
...
Thank you ,that really helped.
Donna C.

"Don Guillett" wrote:

or, from anywhere in the workbook. Notice the . placement

with worksheets("myworksheet")
..Cells.RowHeight = 31.5
..Range("a5,a26,a47,a68,a89,a110,a131").EntireRow. RowHeight = 40.5
End With


--
Don Guillett
SalesAid Software

"Don Guillett" wrote in message
...
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.