<group id="tt" label="Dinamic Custom Ribbon" autoScale="true">
  <button id="t1" image="image1" size="large" />
  <button id="t2" image="image2" size="large" />
<!-- тут скорее всего еще кнопки и т.д. -->
</group>

.ProcOfLine(ll, 0)

Sub ParseModulesAndProcedures()
    Dim VBProj As Object, VBComp As Object, CodeMod As Object
    Dim lLineNum&, lNumOfLines&, ll&, llines_cnt&
    Dim ProcName$, sLine$, sToFindVal$
    
    sToFindVal = "what are we looking for?"
    Set VBProj = ActiveWorkbook.VBProject
    'цикл по модулям
    For Each VBComp In VBProj.VBComponents
        Set CodeMod = VBComp.CodeModule
        With CodeMod
            lLineNum = .CountOfDeclarationLines + 1
            llines_cnt = .CountOfLines
            'цикл по каждой строке модуля(кроме деклараций)
            For ll = lLineNum To llines_cnt
                sLine = .Lines(ll, 1)
                If InStr(1, sLine, sToFindVal, 1) > 0 Then
                    'выводим имя процедуры, в которой нашли значение
                    ProcName = .ProcOfLine(ll, 0)
                    Debug.Print "Module name: " & .Name & "; Proc name: " & ProcName
                End If
            Next
        End With
    Next
End Sub

Sub ParseModulesAndProcedures()
    Dim VBProj As Object, VBComp As Object, CodeMod As Object
    Dim lLineNum&, lNumOfLines&, ll&, llines_cnt&
    Dim ProcName$, sLine$, sToFindVal$
    
    sToFindVal = "Property Set"
    Set VBProj = ActiveWorkbook.VBProject
    'цикл по модулям
    For Each VBComp In VBProj.VBComponents
        Set CodeMod = VBComp.CodeModule
        With CodeMod
            lLineNum = .CountOfDeclarationLines + 1
            llines_cnt = .CountOfLines
            'цикл по каждой строке модуля(кроме деклараций)
            For ll = lLineNum To llines_cnt
                sLine = .Lines(ll, 1)
                sLine = Trim(sLine)
                If Left(sLine, 1) <> "'" Then
                    If InStr(1, sLine, sToFindVal, 1) > 0 Then
                        'выводим имя процедуры, в которой нашли значение
                        ProcName = .ProcOfLine(ll, 0)
                        Debug.Print "Module name: " & .Name & "; Proc name: " & ProcName
                    End If
                End If
            Next
        End With
    Next
End Sub

=СУММПРОИЗВ(СУММЕСЛИ(ДВССЫЛ("'"&{"Русэлпром-Лизинг":"ЛЭЗ":" (АНЭ)":"Техснаб (проекты)"}&"'!B:B");$B5;ДВССЫЛ("'"&{"Русэлпром-Лизинг":"ЛЭЗ":" (АНЭ)":"Техснаб (проекты)"}&"'!D:D")))

=ТЕКСТ(СЕГОДНЯ();"[$-FC19]ММММ ГГГГ \го\да")

Public Sub Convert() 
    Dim rRange As Range
    Set rRange = Intersect(Selection, ActiveSheet.UsedRange)
    rRange = rRange.Value
    rRange.FormulaLocal = rRange.FormulaLocal
End Sub

WorksheetFunction.Subtotal(4, Sheets("Лист1").ListObjects("Таблица1").ListColumns(3).DataBodyRange)

Sub ConvertSelectionToNum()
  Selection.FormulaLocal = Selection.FormulaLocal
End Sub