標準モジュールを削除したい。(VBA)

こんばんは。

VBAで、VBAのコードを扱うのは、ある程度VBAをマスターしてからの方がベターだと思うのですが、色々質問され懸命にVBAを学ぼうとされているようなので、シンプルなサンプルをひとつ。

先ず、新しいブックのシートモジュール、標準モジュール、それからUserFormに適当なコードを書いおきます。
そして以下のコードを同じブックの標準モジュールに書いて実行すると、標準モジュールだけが全て削除されます。

----------------------------------------
Sub CodeDelete()
　Dim Obj As Object
　For Each Obj In ThisWorkbook.VBProject.VBComponents
　　With Obj
　　　　If .Type = 1 Then
　　　　　　　　Application.VBE.activeVBProject.VBComponents.Remove Obj
　　　　End If
　　End With
　Next Obj
End Sub

-----------------------------------------------
尚、これを2002以降で実行する時は、マクロ「セキュリティ」ダイアログで、「Visual Basic Projectへのアクセスを信頼する」にチェックを入れてから実行すること。

それから以前似たような質問に答えてありますので以下のＵＲＬも覗いてみてください。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1347061

後は自力で！・(^^;;;
以上です。