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

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

--


Gary


"PJ Usher" <(E-Mail Removed)> wrote in message
news:%23WaQY74%(E-Mail Removed)...
> 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
>
>
>

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
news:eraVs94%(E-Mail Removed)...
> you can try this
> Range(ActiveCell,activecell.Offset(3)).entirerow.delete
>
> --
>
>
> Gary
>
>
> "PJ Usher" <(E-Mail Removed)> wrote in message
> news:%23WaQY74%(E-Mail Removed)...
>> 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
>>
>>
>>
>
>