vba - elementi - pulsanti

é possibile modificare il testo di un pulsante inserito per eseguire la macro

sintassi:
ActiveSheet.Shapes.Range(Array("Button X")).Select va inserito il numero del bottone del foglio
Selection.Characters.Text = "TESTO)"

esempio: insersco data ed ora nela pulsante
ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Characters.Text = "Data " & Format(Date,"dd/mm/yyyy") & " ora " & Format(Time, "HH:MM")

document.write(document.title.substr(0,document.title.indexOf("-")).trim().toUpperCase() + " - " + document.title.substr(document.title.indexOf("-")+1).trim().toLowerCase())