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