Sub Exp()
On Error Resume Next
ActiveWorkbook.VBProject.VBComponents.Remove _
ActiveWorkbook.VBProject.VBComponents.Item("UserForm1")
On Error GoTo 0
ThisWorkbook.VBProject.VBComponents("UserForm1").Export "UserForm1.frm"
ActiveWorkbook.VBProject.VBComponents.Import ("UserForm1.frm")
Kill ("UserForm1.frm")
End Sub