Pokud je to ActiveX. Tlačítko na List1, jméno v buňce A1 na List2, někde v makru řádek:
Worksheets("List1").CommandButton1.Caption = Worksheets("List2").Range("A1").Textcitovat
Worksheets("List1").CommandButton1.Caption = Worksheets("List2").Range("A1").Textcitovat