Option Explicit

' ====================================
' создание кнопки на активном листе
' с простейшим обработчиком события _Click
Sub AddButtonWithOnClickMethod()
Dim sName$, i&

With ActiveSheet.OLEObjects.Add( _
        ClassType:="Forms.CommandButton.1", _
        Left:= 415 , Top:= 285 , _
        Width:= 70 , Height:= 31 . 5 )
    
    ' генерация необходимого и изменение имени для вновь добавленной кнопки
    ' пригодится при создании обработчика события _Click
    sName = "bt_" & ActiveSheet.CodeName & "_12"
    .Name = sName
    
    With .Object
    .Caption = "Расчет_12"
    .Font.Bold = True
    .Font.Size =  12 
    End With
End With

' создание обработчика события _Click для вновь добавленной кнопки
' (!) в настройках безопасности макросов
'     должен быть установлен флаг 'Доверять доступ к Visual Basic Project'
With ThisWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
    i = .CountOfLines +  1 
    .InsertLines i, "Private Sub " & sName & "_Click()"
    i = i +  1 
    .InsertLines i, _
    "    MsgBox ""через Ж, но работает..."", vbInformation"
    i = i +  1 
    .InsertLines i, "End Sub"
End With
End Sub