Hi Jack

See this code on Chip's site

You can use the VBA Extensibility tools to determine whether a module exists, or a procedure exists in a module.

Function ModuleExists(ModuleName As String) As Boolean
On Error Resume Next
ModuleExists = Len( _
ThisWorkbook.VBProject.VBComponents(ModuleName).Name) <> 0
End Function

Function ProcedureExists(ProcedureName As String, _
ModuleName As String) As Boolean
On Error Resume Next
If ModuleExists(ModuleName) = True Then
ProcedureExists = ThisWorkbook.VBProject.VBComponents(ModuleName) _
.CodeModule.ProcStartLine(ProcedureName, vbext_pk_Proc) <> 0
End If
End Function

http://www.cpearson.com/excel/vbe.htm




--
Regards Ron de Bruin
http://www.rondebruin.nl


"Jack Sons" <j.sons@planet.nl> wrote in message news:%23LY9Q4qtFHA.736@TK2MSFTNGP10.phx.gbl...
> Hi all,
>
> In the code below ABCD can be executed if it is a subroutine - sub ABCD() - in a module elsewhere in the same project. If ABCD is
> a not an existing sub the execution will halt, an error message wil appear on screen and a sound wil be produced. Fore some reason
> I want to hear that sound but I don't want the the program to halt. If possible it would be nice if also the message box does not
> appear, but I need to hear the error sound. To my regret I did not succeed with the code below.
>
> Anybody who knows what code is needed to let the program continue when execution comes to the line with the undefined ABCD but do
> let the error message sound hear?
>
> Jack Sons
> The Netherlands
>
>
> Sub ingnoreABCD()
> ........... ' here the program already did some things
> Application.DisplayAlerts = False
> ABCD
> Application.DisplayAlerts = True
> .............. ' here I want to do what the program should do
> End Sub
>