如何在excel宏中按名称查找公式

Sub FindFormulaByName()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim formulaName As String
    
    ' 设置要查找的公式名称
    formulaName = "公式名称"
    
    ' 遍历每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 在当前工作表中查找所有单元格
        Set rng = ws.Cells
        
        ' 遍历每个单元格
        For Each cell In rng
            ' 检查单元格是否包含公式
            If cell.HasFormula Then
                ' 检查公式是否与指定名称匹配
                If InStr(1, cell.Formula, formulaName, vbTextCompare) > 0 Then
                    ' 如果匹配，则选中该单元格并显示所在工作表和单元格地址
                    ws.Activate
                    cell.Select
                    MsgBox "公式名称 " & formulaName & " 在工作表 " & ws.Name & " 的单元格 " & cell.Address & " 中找到。"
                    Exit Sub
                End If
            End If
        Next cell
    Next ws
    
    ' 如果未找到匹配的公式，则显示提示信息
    MsgBox "未找到公式名称 " & formulaName & "。"
End Sub