Something like this perhaps.
Range("A1").Value = CommandButton1.Caption