Sub macro1()
    If IsNumeric(Range(P9).Value) Then MsgBox ThisWorkbook.Sheets("data").Range(P9).Value
    Else
    MsgBox "не число"
    End If
End Sub

Sub ИТОГИ()
    Selection.NumberFormat = "#,##0.00"
End Sub

' Откорректировать список
Sub Макрос_1_2()
' очистка (в указанном диапазоне) измерителя от точек, запятых, пробелов
    Range("D7:D10000").Select
        Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
' очистка (в указанном диапазоне) наименования от лишних пробелов
    Range("C7:C10000").Select
        With Selection
            .Value = Application.Trim(.Value)
        End With
    Range("D6").Select
' сортировка списка материалов по наименованию
    ActiveWorkbook.Worksheets("материалы").AutoFilter.Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("материалы").AutoFilter.Sort.SortFields. _
        Add Key:=Range("C7:C10000"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("материалы").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("D7").Select
End Sub
 

Public Sub info_text()
    Dim prg As String
    prg = "Заголовок"
End Sub

Sub info(control As IRibbonControl)
    MsgBox "Хочу что бы везде был одинаковый заголовокю", vbOKOnly, prg
End Sub