Function Факториал(ByVal n As Long) As Double
n = n - 1
    If n = 0 Then
        Факториал = 1
        Exit Function
    End If
Факториал = Факториал(n) * (n + 1)
End Function

Sub NumbersWords(control As IRibbonControl)
  Dim tmp As Variant
  tmp = ActiveCell.FormulaR1C1
  On Error GoTo Error_User
    ActiveCell.FormulaR1C1 = "=СУММАПРОПИСЬЮ()"
    Application.Dialogs(xlDialogFunctionWizard).Show
  
Error_User:
    ActiveCell.FormulaR1C1 = tmp
End Sub

<?xml version="1.0" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" xmlns:МПИ="http://customui.blogspot.ru">
    <ribbon startFromScratch="false">
      <tabs>
         <tab id="мояВкладка" label="Личная вкладка" insertBeforeMso="TabHome" keytip="ЁЖ">
            <group id="Параметры" label="По умолчанию при запуске">
               <dropDown id="Пример1" 
                  getSelectedItemID="get_id" 
                  label="Пример 1"  
                  screentip="Выбор" 
                  supertip="Необходимо выбрать." 
                  onAction="ClickItemID">
                     <item id="item1" label="Не печатать" imageMso="XDPPClose" />
                     <item id="item2" label="1 копия" imageMso="ChangePrinter" />
                     <item id="item3" label="2 копии" imageMso="ChangePrinter" />
               </dropDown>
               <dropDown id="Пример2" 
                  getSelectedItemID="CallbackDDGetSelectedItemID" 
                  label="Пример 2"  
                  screentip="Выбор" 
                  supertip="Необходимо выбрать." >
                     <item id="item11" label="Не печатать" imageMso="XDPPClose" />
                     <item id="item12" label="1 копия" imageMso="ChangePrinter" />
                     <item id="item13" label="2 копии" imageMso="ChangePrinter" />
               </dropDown>
            </group>
            <group id="Click" label="При выборе пункта">
               <comboBox id="ClickItem"
                  label="Результат при клике"
                  onChange="ClickItemID">
                     <item id="item21" label="Не печатать" imageMso="XDPPClose" />
                     <item id="item22" label="1 копия" imageMso="ChangePrinter" />
                     <item id="item23" label="2 копии" imageMso="ChangePrinter" />                  
               </comboBox>
            </group>
         </tab>
      </tabs>
   </ribbon>
</customUI>

Option Explicit
Public MyRibbon As IRibbonUI
'Пример 1
Sub get_id(control As IRibbonControl, _
                            ByRef ID)
    ID = "item3"
End Sub
'Пример 2
Sub CallbackDDGetSelectedItemID(control As IRibbonControl, _
                            ByRef ID)
        Select Case control.ID
            Case "Пример2"
                ID = "item13"
        End Select
End Sub

Sub ClickItemID(control As IRibbonControl, _
                            Text As String)
    ActiveWorkbook.Worksheets("Лист1").Cells(1, 1) = Text
End Sub

Private Sub CommandButton4_Click() ' внесение изменений в бланки
Dim myTable As ListObject, myTableA4 As ListObject 
Dim x As Long
Dim n, myArray 
    n = GeneralForm1.ComboBox1.Value 
    Set myTable = Worksheets("Накладная").ListObjects("Nakladnaya") 
    Set myTableA4 = Worksheets("Накладная").ListObjects("NakladnayaA4")
    myArray = myTable.DataBodyRange 
        For x = LBound(myArray) To UBound(myArray) 
            If n = myArray(x, 2) Then 
                Call SheetActivate
                        myArray(x, 2) = GeneralForm1.TextBox3.Value
                        myArray(x, 3) = GeneralForm1.TextBox2.Value
                        myArray(x, 4) = GeneralForm1.TextBox1.Value
            End If
        Next x
End Sub

Private Sub ComboBox1_Change()
Dim n As String
Dim i As Long
Dim lLastRow As Long
Dim rgResult As Range
    lLastRow = Cells(Rows.Count, 2).End(xlUp).Row - 1
    n = ComboBox1.Text
Set rgResult = Range("B7:B14").Find(n, , xlValues)

    For i = 7 To lLastRow Step 1
        If rgResult = n Then
            rgResult.Select
    End If
    Next

End Sub

Sub Mani()
    Dim General_A5 As Worksheet
    Dim Nkl_A5 As ListObject
    Dim k As Integer
    Dim n As String
       
    Set General_A5 = ThisWorkbook.Worksheets("Накладная")
    Set Nkl_A5 = General_A5.ListObjects("Nakladnaya")

    k = Nkl_A5.ListRows.Count
    n = General_A5.Range("Sum_A5")
    General_A5.Range("TotalText") = "Всего наименований: " & k & ", на общюю сумму " & n
    General_A5.Range("C12").FormulaR1C1 = "=slova(Nakladnaya[[#Totals],[Сумма]],3)" ' эта строка должна соответствовать переменной "n"
End Sub

Sub FileSaveAs(control As IRibbonControl)
Dim FileName As String
Dim CellValue As String
Dim xlfFileFormat As XlFileFormat: xlfFileFormat = xlOpenXMLWorkbookMacroEnabled
Dim Puth As String

'Вызов диалогового окна "Сохранить как" с заполнением имени файла
CellValue = ActiveWorkbook.Worksheets("Данные").Cells(3, 3)
FileName = "Безнал_Счёт " & CellValue

Puth = "\"
Application.Dialogs(xlDialogSaveAs).Show FileName, xlfFileFormat, Puth
End Sub