P
Paige
I have set up many files using the Workbook_Open code when a file is
opened. I, in turn, need to delete the code after the file has
processed. I was able to do this, but now my computer won't accept.
The version of Microsoft I am having trouble with is "Microsoft Office
Basic Edition 2003" and the code is as follows:
'deletes workbook open code
Dim DeleteWBOpen As Object
Dim StartLine As Long
Dim HowManyLines As Long
Set DeleteWBOpen =
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
With DeleteWBOpen
StartLine = 1
HowManyLines = .CountOfLines
..DeleteLines StartLine, HowManyLines
End With
I have also tried the following and it still gets hung up.
Sub DeleteAllVBA()
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
..DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp
End Sub
I have checked the "Microsoft Visual Basics for Applications
Extensibility" box.
Any help??
Thank you
opened. I, in turn, need to delete the code after the file has
processed. I was able to do this, but now my computer won't accept.
The version of Microsoft I am having trouble with is "Microsoft Office
Basic Edition 2003" and the code is as follows:
'deletes workbook open code
Dim DeleteWBOpen As Object
Dim StartLine As Long
Dim HowManyLines As Long
Set DeleteWBOpen =
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
With DeleteWBOpen
StartLine = 1
HowManyLines = .CountOfLines
..DeleteLines StartLine, HowManyLines
End With
I have also tried the following and it still gets hung up.
Sub DeleteAllVBA()
Dim VBComp As VBIDE.VBComponent
Dim VBComps As VBIDE.VBComponents
Set VBComps = ActiveWorkbook.VBProject.VBComponents
For Each VBComp In VBComps
Select Case VBComp.Type
Case vbext_ct_StdModule, vbext_ct_MSForm, _
vbext_ct_ClassModule
VBComps.Remove VBComp
Case Else
With VBComp.CodeModule
..DeleteLines 1, .CountOfLines
End With
End Select
Next VBComp
End Sub
I have checked the "Microsoft Visual Basics for Applications
Extensibility" box.
Any help??
Thank you