I got it to work. thanx. For some reason I forgot to add
my shift code.

Thanx to both.


-----Original Message-----
Todd,

Tested it and it worked fine for me.
Dave posted the same method that I did.
He also gave you another choice which should also work.
If neither of them work for you, then there's something
that
you're not telling us.

John


"Todd Huttenstine"
wrote in message
...
That did not work.


-----Original Message-----
Todd,

Try:

Cells(i1, "N").Resize(,4).Delete Shift:=xlShiftUp

John

"Todd Huttenstine"

wrote in message
...
I have the following code that deletes a certain
cell...

Cells(i1, "N").Delete Shift:=xlShiftUp

I would like it to also delete the next 4 cells to
the
right using the same delete method? I would assume I
would have to use an offset method. Can anyone
please
tell me how to do this?

Thank you


Todd Huttenstine


.



.