Here's a function

'----------------------------------------------------------------
Function DeleteModule(moduleName As String)
'----------------------------------------------------------------
Dim vbMod As Object

Set vbMod = ActiveWorkbook.VBProject.VBComponents(moduleName)
ThisWorkbook.VBProject.VBComponents.Remove vbMod

End Function


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mehrdad Hakimzadeh" <Mehrdad wrote in
message ...
I have a workbook with one module and i want to save a copy of workbook
without this module. Plaese help me to write codes to do this
automaticaly.

Thanks
Mehrdad Hakimzadeh