Doesn't seem to work. Here's how I have it posted:


Code:
--------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r1 As Range, r2 As Range
Set r1 = Range("Ext_DP6_P1_all").Resize(2, Columns.Count)
Set r2 = Range("Trunc_DP6_P1").Resize(2, Columns.Count)
r2.Value = r1.Value
End Sub
--------------------


--
BrianDP1977
------------------------------------------------------------------------
BrianDP1977's Profile: http://www.excelforum.com/member.php...o&userid=29110
View this thread: http://www.excelforum.com/showthread...hreadid=490366