Я не думаю, что это может быть намного проще, чем это:
Sub test()
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("Name of your Worksheet") 'the worksheet in which the button is located
sht.OLEObjects("Name of your Command Button").Object.Caption = "test"
End Sub