Si el texto del botón debe cambiar al cambiar el valor de una celda, la macro se coloca en el Editor, objeto HOJA donde vayas a hacer este ingreso.
Si se trata de modificar el 'caption' del botón asumo entonces que se trata de un botón ActiveX... igual te dejo la instrucción por si se trata de un botón de Formulario.
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controla lo ingresado en A1 y según ese valor modifica el texto del botón
If Not Intersect(Target, Range("A1")) Is Nothing Then
'botón de barra Formulario
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Characters.Text = [A1]
'botón de comando ActiveX
ActiveSheet.CommandButton1.Caption = [A1]
End If
End Sub
Debes ajustar el nombre de tu botón, la celda que se modifica y el texto según tu gusto o criterio, aquí solo se muestra el valor de A1.
Sdos y no olvides valorar la respuesta para darla por cerrada.
Para conocer el nombre de un objeto