Multi-Workbook Data Sync

' Multi-Workbook Data Sync
' Place this code in the master workbook's Worksheet module

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Trigger sync when specific columns are modified
    On Error GoTo ErrorHandler

    ' Define sync columns (A and B)
    Dim syncRangeA As Range
    Dim syncRangeB As Range
    Set syncRangeA = Me.Range("A:A")
    Set syncRangeB = Me.Range("B:B")

    ' Check if changed cell is in sync range
    If Not Intersect(Target, syncRangeA) Is Nothing Or _
       Not Intersect(Target, syncRangeB) Is Nothing Then

        Application.EnableEvents = False

        ' Call sync procedure
        Call SyncToSecondaryWorkbook(Target)

        Application.EnableEvents = True
    End If

    Exit Sub

ErrorHandler:
    Application.EnableEvents = True
    MsgBox "Error during sync: " & Err.Description, vbCritical
End Sub

Sub SyncToSecondaryWorkbook(ByVal changedCell As Range)
    ' Sync changed data to secondary workbook
    On Error GoTo ErrorHandler

    ' Define secondary workbook path
    Dim secondaryPath As String
    secondaryPath = ThisWorkbook.Path & "SecondaryWorkbook.xlsx"

    ' Check if file exists
    If Dir(secondaryPath) = "" Then
        MsgBox "Secondary workbook not found at: " & secondaryPath, vbExclamation

' ... 102 more lines hidden ...
'
' Sign up for free to view the complete code
' Visit: vbacode.io