Solved: Remove Module At Certain Criteria...

[Wolfgang]

Good Morning/Evening to you...

Is it possible to remove a module from the current workbook if a certain condition is met?!

Here's the module:

[VBA]
Sub QueryProcess()
'set working directory to this workbook's folder and get file list
*** IF CEll A61000 CONTAINS "EXPIRED..." THAN REMOVE ME ***
If [COUNTA(D4100)] = 0 Then
MsgBox "You Did Not Specify Any Search-Criteria..."
Exit Sub
End If
Bea_ausfuellen
FileSearchUF.Show
STS
End Sub
[/VBA]
I like to have that module be removed so that the user will not be able to use that routine anymore...

Thank you and best regards,

Wolfgang

[Norie]

Wolfgang

Why not just add another if?
[vba]
If Range("A61000") = "Expired" Then Exit Sub
[/vba]
If you really want to remove the module check this Programming to the VBE.

[Wolfgang]

Hi Norie...

I used Chip's example and it works just fine...

Thank you very much and have a nice evening...

Best,
Wolfgang

[mdmackillop]

Hi Wolfgang,
If this is solved, please mark it so using thread tools. Also, when you post code, Please select it and click the VBA button to format it for easy reading. (as shown)
Regards
MD