EXCEL VBA プロシージャ名一覧をイミディエイトウィンドウに出力する

プロシージャ名一覧をイミディエイトウィンドウに出力する

Sub プロシージャ名一覧をイミディエイトウィンドウに出力する()
    Dim buf As String, ProcNames As String, i As Long
    With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
        For i = 1 To .CountOfLines
            If buf <> .ProcOfLine(i, 0) Then
                buf = .ProcOfLine(i, 0)
                ProcNames = ProcNames & buf & vbCrLf
            End If
        Next i
    End With
    Debug.Print ProcNames
End Sub