Automatically run Personal.xls when a particular Excel file is opened

Can I get Personal.xls code or any other code to run when a particular Excel file opens?
What I'm thinking is that, since Personal.xls will open when Excel is started, it may be possible to get the code in Personal.xls to run automatically, and to check whether the file I want to use is also open. If it isn't, exit the code, but if it is, then run the rest of the code.
Up to now, I've used a Command Button UserForm to start the code in Personal.xls, after first opening the file I want to use.
Are there any dangers in doing this? The code is to be used by several people in a LAN.
Thanks in advance.

Thanks for the suggestion.
Can't do that though - the file I want to use is a temporary file generated by exporting data from MS CRM. The file is created new each time.

Thanks for the suggestions.

JosephP, I had a look at the link and at some pages linked to that to try to get my head around application event monitoring, but alas, I fear it is a bridge too far for me at the moment. I didn't understand what I was reading.

JieJenn, I originally couldn't get your idea to work, as Personal.xls runs before the Temp workbook has opened. However, in trying to get my head around JosephP's idea, I came across OnTime, which allowed me to delay the execution of Personal.xls until the Temp file had opened.


In the ThisWorkbook module:

Private Sub Workbook_Open()   'This automatically runs when Personal.xls opens.
    Call Application.OnTime((Now + 1 / 86400), "AutoRunSetup")  ' Waits 1 second (60x60x24=86400)then tries to run AutoRunSetup.
End Sub

In the main module (I had to use a wildcard in the Temp file name, and use "Like", as the file name has a random number in it each time):

Sub AutoRunSetup()
Dim str As String
On Error GoTo WaitMore:    ' Next line generates an error if the Temp file is not yet open.
    str = "Case%20Advanced%20Find%20View * .xls"   'This is the Temp file.
    If ActiveWorkbook.Name Like str Then Call FillSheet   'If the Temp file is open, and is now the active workbook, continue with other code.
GoTo Finish: 
WaitMore:
    Run Workbook_Open   'If an error occurred (the temp file is not yet open), go back to the Sub that opens AutoRunSetup and wait another second.
Finish:
End Sub

I'd be interested to know what you think of this. Can it be improved?

Many thanks Beaucaire and shg.

I had actually already set the thing up with a shortcut, but then thought better of it. Some of the people who will be using this can get a bit flustered at times, particularly where technology is concerned, so I wanted to make it as easy as possible. Some forget shortcuts too. Also, they use a lot of shortcuts for various things (they do remember them eventually), and it could be difficult to find something unique (is it true that we are limited to making shortcuts with the Ctrl key only?)

I will try B's suggestion, although I don't really follow it (and I have the added joy of trying to get it to work with a wildcard in the filename), and it might have to wait a bit, as it's now 4.30 in the morning and my eyes are complaining. You probably know what I mean. I'm even typing (slowly) in the dark as my wife is sleeping nearby.

I'm a bit concerned about using an addin, as it seems to me that it would have to be installed on all the computers, and that would make it difficult to edit - or am I wrong about that?

Ahhh. Thank you both. I had planned to put the Personal file on our server and make it read only. So if I can also do that with an Addin, I guess that's the way to go... Let's see if I can work out addins now.