Did it not work because both John and I can't count to 4?

When I tested, it worked very similar to your code.

And it was exact if the .resize(1,4) was changed to .resize(1,5).



Todd Huttenstine wrote:

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


.


--

Dave Peterson