Thanks, I can make that work.

My trouble now is I'm getting an error on this line

RngToDelete=Selection.Address

I'm using excel 2003 and have dim RngToDelete as range.



"Per Jessen" wrote:

Hi,

Maybe something like this:

RngToDelete=Selection.Address
Sheets("Sheet2").Range(RngToDelete).ClearContents

As always, it is eaisier to make an exact answer, if you posted your
current code.

Hopes it helps.
...
Per

On 4 Sep., 03:20, NDBC wrote:
I have a worksheet_change subroutine that copies selected cells to another
worksheet as they are entered. This all works fine.

My problem occurs when I try and delete data from the original worksheet. If
I only delete one cell it works fine and clears the cell in the second sheet.
If I select a range and hit delete then it only clears the activecell off the
second sheet.

Can I use code to force it to do the range.

Thanks