问一旦表单1的同一单元格的颜色发生变化，如何更改表单2和3的相同单元格的颜色？

EN

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objSrcSheet As Worksheet, objSheet As Worksheet, objSrcRange As Range
    Dim strActiveCell As String

    Set objSrcSheet = Target.Worksheet

    With objSrcSheet
        Set objSrcRange = .Range("A1:" & .Cells(.Rows.Count, .Columns.Count).SpecialCells(xlCellTypeLastCell).Address)
    End With

    objSrcRange.Copy

    Application.ScreenUpdating = False

    For Each objSheet In ThisWorkbook.Worksheets
        If objSheet.Name <> objSrcSheet.Name Then
            objSheet.Activate
            strActiveCell = ActiveCell.Address
            objSheet.Range("A1:" & objSrcRange.Address).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
            objSheet.Range(strActiveCell).Select
        End If
    Next

    objSrcSheet.Activate

    Application.ScreenUpdating = True
    Application.CutCopyMode = False
End Sub