Bom dia!!
Aqui tem o que precisa:
http://www.cpearson.com/excel/vbe.aspx
ThisWorkbook.VBProject.VBComponents
.Remove .Item("Userform1")
################################
On Error Resume Next
With wbk.VBProject
For x = .VBComponents.Count To 1 Step -1
If .VBComponents(x).Type = vbext_ct_StdModule Then
.VBComponents.Remove .VBComponents(x)
End If
Next x
End With
On Error GoTo 0
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 02/10/2014 6:21 am