Hi,

I need to delete a module programmatically. Here is my function ( It is on
ms access),

Public Function lathe_V11(tcid As Double, tlid As Double, custid As String,
mach As Integer, prog As Integer)
'Dim string Variables
Dim thepath As String

'Dim Excel Object
Dim objXL As Object
Set objXL = CreateObject("Excel.Application")
thepath = mypath & mach & "\" & custid & "\" & mach & prog & ".xls"



With objXL.Application
.Visible = True
.Workbooks.Open thepath
.ActiveWindow.WindowState = xlMinimized
.VBComponents("Module1").Remove
'........
'....More code................
End With
End Function


Could anyone help me?

Thanks

Bre-x