Ако търсиш име на функция или процедура това ще ти свърши работа

Option Explicit



Sub SearchSub_Function(ByVal WhoSearch As String)

Dim I, J As Integer

Dim MyString As String

For I = 1 To ActiveWorkbook.VBProject.VBComponents.Count



 With ActiveWorkbook.VBProject.VBComponents.Item(I)

  If .Type = vbext_ct_StdModule Then

    If .CodeModule.CountOfLines > 0 Then

    For J = 1 To .CodeModule.CountOfLines

     MyString = .CodeModule.Lines(J, 1)

     If (InStr(LCase(MyString), LCase("Sub " & WhoSearch)) = 1) Or (InStr(LCase(MyString), LCase("Function " & WhoSearch)) = 1) Then MsgBox (.Name)

    Next

   End If

  End If

 End With

Next

End Sub



Sub CallSearcSubFun()

  Call SearchSub_Function("My1SubSearch")

End Sub