i'm not sure if this is what you are looking for, but how about this?

Sub findproctest()
Dim oCodeM As Object
Dim iStart As Long

For Each oCodeM In ThisWorkbook.VBProject.VBComponents
With oCodeM.codemodule
On Error Resume Next
iStart = 0
iStart = .ProcStartLine("worksheet_activate", vbext_pk_Proc)
If iStart < 0 Then
MsgBox "Worksheet_Activate() found in " & oCodeM.Name
End If
End With
Next
End Sub

keizi

"mikeburg" wrote in
message ...

Need syntax for If statement to see if Worksheet_Activate code exists.

For example

If Sheet1.Worksheet_Activate = True Then

Help please. Thank you. mikeburg


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile:
http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=490438