deleting cell range in a worksheet_change subroutine

[NDBC]

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

 

[Per Jessen]

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

 

[NDBC]

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.

 

[NDBC]

Just had a thought, maybe error wasn't in that line

RngToDelete = Selection.Address
Sheets("a lap").Range(RngToDelete).Offset(0, 3).ClearContents

I need to move the selection address over 3 columns to clear in the second
sheet. Have I done this wrong and it is just showing up an error on the wrong
line

 

[Per Jessen]

Selection.Address is returning a string, so you should use:

Dim RngToDelete As String

Regards,
Per