Disable macro using a macro

[1Big_Daddy]

I have found a way to delete the module the particular macro is in:

Sub DeleteCopyLog()
Dim vbCom As Object

Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:=vbCom.Item("Module4")

End Sub

However, the code that calls the particular macro I'm deleting reamins in the master macro. When, and if, the user runs the master macro again the error msgbox: "Sub or function not defined" appears!

Can anyone help???

Thanks

 

[Joe Was]

Try this:


Sub DeleteCopyLog()
Dim vbCom As Object

On Error GoTo myEnd

Set vbCom = Application.VBE.ActiveVBProject.VBComponents
vbCom.Remove VBComponent:=vbCom.Item("Module4")

myEnd:
End Sub

 

[1Big_Daddy]

Nope, it didn't work....same error msg appears...

 

[Greg Truby]

I'm sorry. But for a moment, it seemed like you said that you want to delete all the code in Module4 and yet have your MAIN macro attempt to CALL subroutines located in Module4?

 

[Joe Was]

For Each vbCom In Application.VBE.ActiveVBProject.VBComponents
If vbCom.Name = "Module4" Then vbCom.Remove VBComponent:=vbCom.Item("Module4")
Next vbCom

 

[1Big_Daddy]

Yes, Greg....that was was my intent to remove the code so that it would not repeat after being used once.

I found some code on Ozgrid.com that performed the delete function Joe recommened. This brought the current problem of when that module was no longer part of the procedure, the error msg appeared because my main macro still had the "call" line within it.

I think I found a way to write around the problem though.

I added a line within the macro I want to skip over once used placing the word "Done" in a selected cell.

Then by adding a If, Then statement I can jump right over the "call" command If sheet16.range("g2") = "Done" Then.....Exit Sub.


Thanks for both your help (Greg, Joe)!!!!

 

[Greg Truby]

Yes, you should simply use an IF statement to test whether the subroutine should be called or not. To completely delete the code is what I would call "doing it the hard way"!