Sub s()
  Dim v_Xl, v_Wb, v_VBComp, v_CM, v_CBar, v_CBarCtrl
  Dim v_Code As String, v_File As String, v_Macro As String
  
  v_File = "C:\01.xls"
  v_Macro = "mySub"
  Set v_Xl = CreateObject("Excel.Application")
  Set v_Wb = v_Xl.Workbooks.Add
  v_Wb.SaveAs (v_File)
  
  Set v_VBComp = v_Wb.VBProject.VBComponents.Add( 1 )
  v_VBComp.Name = "myModule"
  Set v_CM = v_VBComp.CodeModule

  v_Code = "sub " & v_Macro & "()" & vbCrLf
  v_Code = v_Code & "  MsgBox ""получилось!""" & vbCrLf
  v_Code = v_Code & "' код поцедуры" & vbCrLf
  v_Code = v_Code & "End Sub"
  v_CM.AddFromString v_Code

  Set v_CBar = v_Xl.CommandBars.Item("Standard")
  v_CBar.Visible = True
  Set v_CBarCtrl = v_CBar.Controls.Add(msoControlButton)
  With v_CBarCtrl
    .Caption = "PrintReport"
    .FaceId =  4 
    .TooltipText = "Макрос приаттачен к книге " & v_File
    .OnAction = v_File & "!" & v_VBComp.Name & "." & v_Macro
  End With
  v_Xl.Visible = True
End Sub

  Set v_Wb = v_Xl.Workbooks.Add
  v_Wb.SaveAs (v_File)

  Set v_Wb = v_Xl.Workbooks.Open(v_File)

  Set v_CBar = v_Xl.CommandBars.Item("Standard")
  v_CBar.Visible = True
  Set v_CBarCtrl = v_CBar.Controls.Add(msoControlButton)
  With v_CBarCtrl
    .Caption = "PrintReport"
    .FaceId =  4 
    .TooltipText = "Макрос приаттачен к книге " & v_File
    .OnAction = v_File & "!" & v_VBComp.Name & "." & v_Macro
  End With

  Dim v_CtrlExist As Boolean 'в этой переменной будем хранить флаг - есть ли кнопка
  Set v_CBar = v_Xl.CommandBars.Item("Standard")
  For Each v_CBarCtrl In v_CBar.Controls         'в цикле по всем кнопкам панели "Стандартная"
    If v_CBarCtrl.Caption = "PrintReport" Then   'проверяем, есть ли кнопка с Caption = "PrintReport"
      v_CtrlExist = True 'если есть - "поднимаем" флаг
      Exit For           'и выходим из цикла
    End If
  Next
  
  If v_CtrlExist = False Then  'если кнопки нет
    Set v_CBarCtrl = v_CBar.Controls.Add(msoControlButton) 'создаем ее
    With v_CBarCtrl
      .Caption = "PrintReport"  'устанавливаем свойство Caption (заголовок)
      .FaceId =  4                'определяем картинку на кнопке (принтер)
    End With
  End If
  
'в любом случае устанавливаем следующие свойства
  With v_CBarCtrl
    .TooltipText = "Макрос приаттачен к книге " & v_File
    .OnAction = v_File & "!" & v_VBComp.Name & "." & v_Macro
  End With
  v_CBar.Visible = True 'делаем панель "Стандартная" видимой (на тот случай, если она невидима) 

Sub st1()
'
End Sub

Sub st1()
  Dim v_Xl, v_Wb, v_Sh, v_VBComp, v_CM, v_Btn
  Dim v_Code As String, v_Macro As String
  
  Set v_Xl = GetObject(, "Excel.Application")
  Set v_Wb = v_Xl.ActiveWorkbook 'получаем ссылку на активную рабочую книгу
  Set v_Sh = v_Wb.Worksheets.Add          'добавляем лист
  v_Sh.Name = "oper"             'переименовываем лист
  
  Set v_VBComp = v_Wb.VBProject.VBComponents.Add( 1 ) 'добавляем модуль
  v_VBComp.Name = "myModule"                        'называем его "myModule"
  Set v_CM = v_VBComp.CodeModule
  
  v_Macro = "mySub"
  v_Code = "sub " & v_Macro & "()" & vbCrLf
  v_Code = v_Code & "call Макрос2()" & vbCrLf
  v_Code = v_Code & "End Sub"
  v_CM.AddFromString v_Code       'создаем макрос "mySub" в модуле "myModule"
  
  Set v_Btn = v_Sh.Buttons.Add( 247 . 5 ,  71 . 25 ,  173 . 25 ,  38 . 25 ) 'добавляем кнопку
  v_Btn.Caption = "Print Report"   'заголовок кнопки
  v_Btn.OnAction = v_Macro         'приаттаченый макрос
  
  v_Xl.Visible = True
End Sub

Sub s()
  Dim mysheet As Worksheet
  For Each mysheet In Worksheets
    If mysheet.Name <> "Лист1" Then
      mysheet.PrintOut Copies:= 1 , Collate:=True
    End If
  Next mysheet
End Sub