Bruna.vb

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If UCase(Sh.Name) = "SHEET1" Or UCase(Sh.Name) = "SHEET2" Then
        If Not Application.Intersect(Target, Range(Target.Address)) Is Nothing Then
            Application.EnableEvents = False
            If UCase(Target.Parent.Name) = "SHEET1" And Target.Column = 1 Then
                Sheets("Sheet2").Range(Target.Address) = Target
            ElseIf UCase(Target.Parent.Name) = "SHEET2" And Target.Column = 1 Then
                Sheets("Sheet1").Range(Target.Address) = Target
            End If
            Application.EnableEvents = True
        End If
    End If
End Sub