Bom dia!
Não sabia também, achei interessante e fui pesquisar, achei direto do site da Microsoft:
http://support.microsoft.com/kb/172109/pt-br
Sub DeleteAfterRun()
Dim x As Object
Set x = Application.VBE.ActiveVBProject.VBComponents
' Deleta o componente, no caso um formulário
x.Remove VBComponent:=x.Item("UserForm1")
End Sub
Acho que resolve o seu problema.
Att.
Adriano
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/01/2011 8:51 am