Private Sub CommandButton1_Click()
Range("a3").Copy
End Sub
Private Sub CommandButton2_Click()
Range("b3").Copy
End Sub
Private Sub CommandButton3_Click()
Range("c3").Copy
End Sub
Private Sub UserForm_Initialize()
CommandButton1.Caption = Range("a3").Value
CommandButton2.Caption = Range("b3").Value
CommandButton3.Caption = Range("c3").Value
End Sub