Remove active module in a copy

[Mehrdad Hakimzadeh]

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

[Bob Phillips]

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 [email protected]> wrote in
message news:[email protected]...
> 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