Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A1:Z10")) Is Nothing Then
With Application
     .ScreenUpdating = False
     .DisplayAlerts = False
     .EnableEvents = False
     Workbooks.Open Filename:=ThisWorkbook.Path & "\1.xlsx"
With ActiveWorkbook
    .Worksheets("Лист1").Range("A1").Value = ThisWorkbook.FullName
    .Save
    .Close
End With
     Workbooks.Open Filename:=ThisWorkbook.Path & "\2.xlsx"
With ActiveWorkbook
    .Worksheets("Лист1").Range("A1").Value = ThisWorkbook.FullName
    .Save
    .Close
End With
     .ScreenUpdating = True
     .DisplayAlerts = True
     .EnableEvents = True
End With
End If
End Sub