Как можно удалить или очистить тело макроса после его исполнения из самого себя?

With Application.VBE.ActiveVBProject.VBComponent('Module1').CodeModule
    For i = 1 To .CountOfLines
        .DeleteLines i
    Next i
End With

With ThisWorkbook.VBProject
    .VBComponents.Remove .VBComponents(Имя_модуля)
End With

Sub УдаляетсяПослеВыполнения()
 
'Рабочий код процедуры
'_______________________________
'Обеспечиваем удаление процедуры
With ThisWorkbook.Sheets(1)  'Передаём в procRemoverProc имя процедуры и модуля, её содержащего
    .range('A1') = 'УдаляетсяПослеВыполнения'
    .range('A2') = 'Module1'
End With
Application.OnTime Now + TimeValue('0:00:03'), 'procRemoverProc'  ' Можно, наверное, уменьшить задержку до секунды
End Sub
 
Public Sub procRemoverProc()
' Удаляет процедуру
Dim i As Long, lngType As Long, strFindProcName As String, strProcName As String, _
    strModuleName As String
 
With ThisWorkbook   ' Принимаем имя процедуры и модуля, её содержащего
    strFindProcName = .Sheets(1).range('A1')
    strModuleName = .Sheets(1).range('A2')
    .Sheets(1).range('A1') = Empty
    .Sheets(1).range('A2') = Empty
    With .VBProject.VBComponents(strModuleName).CodeModule
        For i = 1 To .CountOfLines
            strProcName = .ProcofLine(i, lngType)  'Присваиваем переменной имя процедуры
            If strProcName = strFindProcName Then  'Проверяем имя процедуры на соответствие искомому
 
                .DeleteLines i - 1, .ProcCountLines(strProcName, lngType)  ' Удаляем процедуру
            Else
                i = i + .ProcCountLines(strProcName, lngType)' Переходим к следующей процедуре
            End If
        Next i
    End With
End With
End Sub