Two simple macro commands

[Grace]

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

 

[Norman Jones]

Hi Grace,

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

2) If Activecell.Row = 65536 then Exit Sub

 

[Guest]

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



ask for help with
a delete this row and
the


.