Selfdestructing VBA Code - Code to remove all VBA Modules from given Window - i.e. after copying Table, remove code

majortom.vba

    Dim x As Integer
    With ActiveWindow
        .Visible = False
        .Activate
        On Error Resume Next
        For x = .VBProject.VBComponents.Count To 1 Step -1
            .VBProject.VBComponents.Remove .VBComponents(x)
        Next x
        For x = .VBProject.VBComponents.Count To 1 Step -1
            .VBProject.VBComponents(x).CodeModule.DeleteLines _
            1, .VBProject.VBComponents(x).CodeModule.CountOfLines
        Next x
    End With