Delete multiple rows
 

Excel 2000

Hi
I would like a macro to

Find a cell with unique criteria
Delete the row with the cell and 3 rows below.

Was able to find the cell
then delete the row with the cell but having difficulty deleting the 3 rows
below.

Currently I have:

Range(ActiveCell, ActiveCell.End(xldown).select
Selection.delete

Tried to code to select additional rows with row+3 in various configuration
but it gave me an errors.
Obviously I do not know enough.
Any help would be appreciated.

Thank you
PJ

Delete multiple rows
 

you can try this
Range(ActiveCell,activecell.Offset(3)).entirerow.d elete

--


Gary


"PJ Usher" wrote in message
...
Excel 2000

Hi
I would like a macro to

Find a cell with unique criteria
Delete the row with the cell and 3 rows below.

Was able to find the cell
then delete the row with the cell but having difficulty deleting the 3 rows
below.

Currently I have:

Range(ActiveCell, ActiveCell.End(xldown).select
Selection.delete

Tried to code to select additional rows with row+3 in various configuration
but it gave me an errors.
Obviously I do not know enough.
Any help would be appreciated.

Thank you
PJ

Delete multiple rows
 

Hi Gary
It works just the way I wanted.
You guys are great!!
Thank you very much

PJ


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
you can try this
Range(ActiveCell,activecell.Offset(3)).entirerow.d elete

--


Gary


"PJ Usher" wrote in message
...
Excel 2000

Hi
I would like a macro to

Find a cell with unique criteria
Delete the row with the cell and 3 rows below.

Was able to find the cell
then delete the row with the cell but having difficulty deleting the 3
rows
below.

Currently I have:

Range(ActiveCell, ActiveCell.End(xldown).select
Selection.delete

Tried to code to select additional rows with row+3 in various
configuration
but it gave me an errors.
Obviously I do not know enough.
Any help would be appreciated.

Thank you
PJ