Determine if Sub Exists

  • Thread starter Thread starter Paige
  • Start date Start date
P

Paige

Is there a way to determine if a sub exists? I have code in an add-in that
calls a sub in the active workbook per the example below. How do I determine
if that sub exists in the activeworkbook or not, to avoid an error?

WBName = ActiveWorkbook.Name
Application.Run "'" & WBName & "'!RemoveSN"
 
Just add an error handler:

Sub test()

On Error GoTo ERROROUT

Application.Run "xxx"

Exit Sub

ERROROUT:
MsgBox Err.Description 'or do whatever is suitable

End Sub


RBS
 
Hi,
Try the following:

If ProcExists("RemoveSN") Then Application.Run "'" & WBName & "'!RemoveSN"

Function ProcExists(ProcName As String) As Boolean
Dim i
On Error Resume Next
MsgBox
ThisWorkbook.VBProject.VBE.ActiveCodePane.CodeModule.ProcBodyLine(ProcName,
vbext_pk_Proc)

If Err.Number <> 0 Then
ProcExists = False
Else
ProcExists = True
End If
End Function
 
Actually there is no use for a MsgBox instead use the i variable as follows:

If ProcExists("RemoveSN") Then Application.Run "'" & WBName & "'!RemoveSN"

Function ProcExists(ProcName As String) As Boolean
Dim i
On Error Resume Next
i =
ThisWorkbook.VBProject.VBE.ActiveCodePane.CodeModule.ProcBodyLine(ProcName,
vbext_pk_Proc)

If Err.Number <> 0 Then
ProcExists = False
Else
ProcExists = True
End If
End Function
 
Thanks, RB and Howard, for both great ideas!

Howard31 said:
Actually there is no use for a MsgBox instead use the i variable as follows:

If ProcExists("RemoveSN") Then Application.Run "'" & WBName & "'!RemoveSN"

Function ProcExists(ProcName As String) As Boolean
Dim i
On Error Resume Next
i =
ThisWorkbook.VBProject.VBE.ActiveCodePane.CodeModule.ProcBodyLine(ProcName,
vbext_pk_Proc)

If Err.Number <> 0 Then
ProcExists = False
Else
ProcExists = True
End If
End Function
Click to expand...
 
Back
Top