Hi Erik

Try replacing your code with:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim copyRng As Range

Set copyRng = Range("A1:B20") '<<<<<<<<<CHANGE

If Not Intersect(Target, copyRng) Is Nothing Then
With Worksheets("Sheet2").Range(Target.Address)
.Value = Target.Value
End With
End If

End Sub


Note that you will need to change the line:

Set copyRng = Range("A1:B20")

to reflect the range that you want to copy - I've just used a wild guess
nonsense range.

---
Regards,
Norman



"Erik" wrote in message
...
I have to following sub in my worksheet.
Private Sub Worksheet_Change(ByVal Target As Range)
With Worksheets("Sheet2").Range(Target.Address)
.Value = Target.Value
End With
End Sub
It copies all cell values from sheet1 to sheet2. How do I change this to
copy only a selected range of cells.