Hi Robert,

Am Sat, 29 Nov 2014 01:40:57 -0700 schrieb Robert Crandal:

I want the data in Sheet1 and Sheet2 to mirror
each other, but only in the range of A1:C10.

try following code in code module of ThisWorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

If Intersect(Target, Sh.Range("A1:C10")) Is Nothing Then Exit Sub

Dim rngDest As Range
Dim Addr As String

Application.EnableEvents = False

Addr = Target.Address
Select Case Sh.Name
Case "Sheet1"
Set rngDest = Sheets("Sheet2").Range(Addr)
Case "Sheet2"
Set rngDest = Sheets("Sheet1").Range(Addr)
End Select
rngDest = Target.Value

Application.EnableEvents = True

End Sub


Regards
Claus B.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional