so the next step in this prosess is to be able to share the information between numerous sheets, and consolidate some information..
this is how i tried it- but its not working.
any thoughts?


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Sheet1.Select.Range("b2:n2")) Is Nothing Then
Application.EnableEvents = False
Sheet2.Select.Range("a13:m13").Value = Sheet1.Select.Range("b2:n2").Value
Application.EnableEvents = True
End If
If Not Intersect(Target, Sheet2.Select.Range("a13:m13")) Is Nothing Then
Application.EnableEvents = False
Sheet1.Select.Range("b2:n2").Value = Sheet2.Select.Range("a13:m13").Value
Application.EnableEvents = True
End If

End Sub