Failure to execute Private Workbook_Open
 

I find that when I execute a Public Static Workbook_Open routine (Book1
opening Book2) that Book2 Private Sub Workbook_Open procedure in ThisWorkbook
does not call a sub that is to be executed upon the opening of the workbook.
Any Suggestions? Example: Book1:::
Public Static Sub OpenFiles(BkNme)
Dim WorkBk As Workbook
Dim WrkBk As String
Dim BKPath As String
Set ThsWrkBk = ActiveWorkbook
BKPath = "C:\Documents and Settings\Richard L. Harig\My
Documents\Excell\Financials\"
WrkBk = BKPath & BkNme
On Error Resume Next
Set WorkBk = Workbooks(BkNme)
If WorkBk Is Nothing Then
On Error Resume Next
Workbooks.Open Filename:=WrkBk, UpdateLinks:=3
End If
End Sub

Book2::
Private Sub Workbook_Open()
Call MedExp
End Sub