Intersect, Target, Range - referencing from another cell, a problem....

Hi,

I have this private sub on a worksheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("C5:C1000")) Is Nothing Then

    Worksheets("Sheet1").Unprotect
    Target.Copy Destination:=Sheets("Sheet1").Range("U2")
        Worksheets("Sheet1").Visible = True
        Sheets("Sheet1").Select
        Worksheets("Sheet1").Protect
End If

End Sub

This works fine, copying the value of the cell selected in column C, and pasting it to the range U2 on 'Sheet1'.

However, I've now referenced the value of C5:C1000 from cells D5:D1000. So C5=D5, C6=D6 etc... This is causing the above code to not quite work. When i then click on a cell it copies the value of "V2" on Sheet1 into cell "U2" on Sheet1. I realize this is something to do with the fact that Im now referencing another cell (one across from the original), but i cant quite work out how to fix it.

Any ideas?


ps: I have to reference the cells, as another macro on another sheet copies and pastes information into the sheet with the code (ie into C5:C1000) As a result this automatically triggers the private sub - which i don't want it to do. So referencing it means the private sub doesn't get triggered when the other macro runs.