Macro for Updating workbook with button from another workbook

[Cl.Klink]

Greetings;

I have several workbooks that have a value each in Sheet1 Cell A1
I also have a workbook called Master-1.xlsm where on sheet Data List I like to have the values from the other workbooks with the button in these books.
I am able to update from Sheets within Master-1.xlsm using buttons however I am lost doing this from other workbooks. (both books are opened).

This is the code in the workbook that with a button is to update Master-1.xlsm Sheet Data List in column A .....this does not work.

Sub Sheet1_Button1_Click()
 r = 1
     Sheets("Sheet1").Range("A1").Copy
    If Sheets("Sheet1").Range("A10") = "Master-1.xlsm" goto Sheets "Data list".Range("A65536").End(xlUp) _
        Then r = 0
     Sheets("Data List").Range("A65536").End(xlUp).Offset(r, 0).PasteSpecial _
        Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

Please advice and thanking You in advance.....Cl.Klink