Copy cells
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.
|