Automatically Run Workbook Event on Workbook Open

[ilcaa]

I have this macro stored in my personal.xlsb folder and it is stored in "This Workbook".

Everytime a workbook is open a want to run a SUB() that checks the name of the workbook and does something depending on certain workbook names....

i am trying this small macro just to test it and It doesnt run automatically once a workbook opens.

Private Sub Workbook_Open()
If ActiveWorkbook.Name = "indeed" Then
msgBox (ActiveWorkbook.Name)
Else
MsgBox (ActiveWorkbook.Name)
End If
End Sub


what am i doing wrong to have this run automatically everytime a workbook is opened? thanks

 

[ilcaa]

thanks for posting the code. But for me, it did not produce the intended results.


I replaced my original macro with your code within "thisworkbook" in my personal.xlsb

i assume I don't need to tweak anything. But when I open different workbooks, nothing happens. Did you run it on your end and it worked???


thanks for the help.

 

[ilcaa]

still cant figure this out, can you please explain a little bit more about need is to trap the Application events not the Workbook events and your code, it doesnt seem to work as you suggested, thank you!!

 

[Jaafar Tribak]

still cant figure this out, can you please explain a little bit more about need is to trap the Application events not the Workbook events and your code, it doesnt seem to work as you suggested, thank you!!

The application level events work on every workbook that is open inside the excel application session.

If you place the code I provided inside the Personal workbook module ie in the ThisWorkbook module of the Personal.xls then every time a new workbook is added or an existing workbook is opened you should get a message box displaying the name of the workbook.

I don't use Excel 2007 so I am not familiar with the new File format personal.xlsb but I don't think that would make any difference.