Thanks, Norman, Worked like a charm!

-----Original Message-----
Hi Grace,

1) Activecell.Resize(13).EntireRow.Delete

2) If Activecell.Row = 65536 then Exit Sub

---
Regards,
Norman



"Grace" wrote in message
...
On 6/8 1:04PM, buried in the "one more macro" thread, I
ask for help with
a
macro. I am afraid no one is looking there now and,
also, I may have
over-complicated things. There are only two things I
think I need. The
rest I can probably figure out myself.

If I am in column A (in any row) and I want to say,
delete this row and
the
next 12 rows, how do I do that?

If I, first, want to ask "if the current row is row
66536", then end the
macro, how do I code that query?

Thanks
Grace




.