返回当前代码模块名称

Sub WhatProcs()
    Dim oProj As VBProject
    Dim oComp As VBComponent
    Dim oMod As CodeModule
    Dim nLine As Long
    Dim strProcName As String
    
    Set oProj = ThisDrawing.Application.VBE.ActiveVBProject
    
    For Each oComp In oProj.VBComponents
        ' Confusingly, each oComp corresponds to a "Module"
        ' as shown in the Project Explorer. Then oMod
        ' represents the code itself, which has no name.
        Set oMod = oComp.CodeModule
        Debug.Print oComp.Name
        
        ' Step past the declarations at the top
        nLine = oMod.CountOfDeclarationLines + 1
        
        Do While nLine < oMod.CountOfLines
            ' Get the name of the procedure enclosing the line
            strProcName = oMod.ProcOfLine(nLine, vbext_pk_Proc)
            Debug.Print vbTab & strProcName
            
            ' Add this procedure's line count to the current line
            ' to find the next procedure (or the end of the module)
            nLine = nLine + oMod.ProcCountLines(strProcName, vbext_pk_Proc)
        Loop
    Next oComp
    
    Set oMod = Nothing
    Set oComp = Nothing
    Set oProj = Nothing
End Sub
Public Sub Test1()
    MsgBox "This is a test"
End Sub
Public Sub Test2()
    MsgBox "This is also test"
End Sub

ThisDrawing
Module1
    WhatProcs
    Test1
    Test2

Sub ActiveCode()
    Dim oIDE As VBE
    Dim oPane As CodePane
    Dim oMod As CodeModule
    Dim sProc As String
    Dim lngSC As Long 'Start column
    Dim lngEC As Long 'End Column
    Dim lngSL As Long 'Start Line
    Dim lngEL As Long 'End Line
    Dim sActiveProject As String
    Dim sActModule As String
    Set oIDE = Application.VBE
    sActiveProject = oIDE.ActiveVBProject.Name
    Set oPane = oIDE.ActiveCodePane
    Set oMod = oPane.CodeModule
    sActModule = oPane.CodeModule.Name
    oPane.GetSelection lngSL, lngSC, lngEL, lngEC
    sProc = oMod.ProcOfLine(lngSL, vbext_pk_Proc)
    Debug.Print sActiveProject, sActModule, sProc
    Debug.Print Err.Number, Err.Description
    
End Sub

Sub errTest()
    On Error GoTo Err_Control
    Dim v As Integer
    v = 1E+43
    Debug.Print v
Exit_Here:
    Exit Sub
Err_Control:
    Select Case Err.Number
    'Add your Case selections here
        Case Else
        
        ActiveCode
        Err.Clear
        Resume Exit_Here
    End Select
End Sub