Ah, OK.

"Trevor Shuttleworth" wrote in message
...
Don

it's not the winning that counts, it's the taking part ;-)

Regards

Trevor


"Don Guillett" wrote in message
...
Trevor,
You may have been faster but I deleted more rows. <G

"Trevor Shuttleworth" wrote in message
...
Jim

Sub TestDeleteRows()
Dim RowCounter As Long
RowCounter = 10
Rows("4:" & RowCounter).EntireRow.Delete
End Sub

works for me

Regards

Trevor


"Jim" wrote in message
...
Im trying to select, then delete a whole lod of rows in
one go. Im trying to use the following commands:
Rows("4:" & count_y ).Select
Selection.Delete Shift:=xlUp

It doesn't like this at all. How can I get it to do what
I want?