Advanced search complete event not firing in VBA

Question

As the title suggests I cannot get the advanced search complete event to fire. I am running VBA through Excel 2013. I have a sub running in worksheet1 which creates a test objec

Answer 1

To allow raising events you need to declare your objects with WithEvents

Dim WithEvents myOlApp As New Outlook.Application

Answer 2

The AdvancedSearchComplete event has a special procedure name which the compiler needs to see in order to tie your code to the event. Change the procedure name to:

Private Sub Application_AdvancedSearchComplete(ByVal SearchObject As Search)