2016-01-16 4 views

ответ

0

Попробуйте это:

Sub Test() 
' change CommandButton1 to your Command Button name ' 
ActiveSheet.CommandButton1.Caption = InputBox("Caption?") 
End Sub