Run macro when workbook opens - from Addin

[Formula11]

I'm using an addin for a macro, and need to test for the workbook name.
The code below works but the macro "initial_do" runs twice.

Tried to call up from Workbook_Open but no luck.
One of the difficulties seems to be that getting workbook name seems to be triggered after Workbook_Open.


ThisWorkbook

Option Explicit

Private WithEvents App As Application '... for new Workbooks???

Private Sub Workbook_Open()
    Set App = Application
End Sub

'To handle workbooks opened after the first instance???
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    Application.Run "initial_stuff"
End Sub

Module1

Option Explicit

Public RunWhen As Double
Public Const RunIntervalSeconds = 0
Public Const RunWhatInitial = "initial_do"

Private Sub initial_stuff()
    RunWhen = Now + TimeSerial(0, 0, RunIntervalSeconds)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=RunWhatInitial, Schedule:=True
End Sub

Private Sub initial_do()
    MsgBox ActiveWorkbook.FullName
End Sub

 

[Micron]

I presume you mean it runs 2x in succession. I copied your code and msgbox was raised only once for each wb I opened. Perhaps your code needs to be compiled?

 

[Formula11]

Thanks Micron, did you save code as add-in and automatically run it with Excel, this is the instance when it runs twice, yes in succession.
If called up normally (not from addin), then only runs once.

This is the first time I've heard of compiling code, assume you mean error checking by this. Clicked Debug, Compile VBAProject, nothing happened.

Doesn't make sense to be called up twice from the active workbook (using ActiveWorkbook.FullName).
If called up once each from addin, and once active workbook this would have made sense.

 

[Jaafar Tribak]

Doesn't the following work for you as expected?

Option Explicit

Private WithEvents App As Application '... for new Workbooks???

Private Sub Workbook_Open()
    Set App = Application
End Sub

'To handle workbooks opened after the first instance???
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    If Not Wb.IsAddin Then MsgBox Wb.FullName
End Sub

 

[Formula11]

Thanks Jaafar, this works, and a lot simpler, cheers.

 

[Micron]

No I missed that fact. The behaviour makes sense to me if the add in is regarded as an application. When it loads, it would trigger the code, no?
Anyway, no need to reply since you have a nice solution. I learn something here almost every day.