Sub Set_UDF_notes()
    With Application
    .MacroOptions Macro:="СКЛЕИТЬ", _
                    Description:="Склеивает тексты из выделенных ячеек с возможностью переноса строк", _
                    Category:="Определенные пользователем"
    .MacroOptions Macro:="КурсДоллара", _
                    Description:="Запрашивает курс доллара США с сайта ЦБ РФ" & vbCrLf & _
                    "Дата по умолчанию - СЕГОДНЯ", _
                    Category:="Определенные пользователем"
    .MacroOptions Macro:="КурсЕвро", _
                    Description:="Запрашивает курс ЕВРО с сайта ЦБ РФ" & vbCrLf & _
                    "Дата по умолчанию - СЕГОДНЯ", _
                    Category:=UDF_cat
    .MacroOptions Macro:="СЧЁТ_РАЗНЫХ", _
                    Description:="Вычисляет количество уникальных значений в указанном диапазоне", _
                    Category:="Определенные пользователем"
    End With
End Sub