Shared Workbook "Catastrophic Failure" - Excel 2010

[CavityCrepe]

In Excel 2010 I am trying to add a small function to several of the workbooks that we use throughout the office so that we can quickly see when the last update was made and by who. The function works fine when the workbook is not shared, but whenever I share it, any time you open it up you get the "Automation Error Catastrophic Failure" message.

I believe it is the Application.Volatile that is messing it all up, because whenever I comment out that line everything works fine, it just doesn't update right, so i would have to type the function into the cell every time i wanted to view the last time it was updated.

Do you have any ideas on a work around or a possible fix? The internet at large has had no solution thus far.

Function LstSvDt() As Variant
Application.Volatile
LstSvBy = ActiveWorkbook.BuiltinDocumentProperties(12)
End Function

 

[AlphaFrog]

Could you put it in the WorkBook_Open procedure and then it could update a specific cell with the info. when the workbook opens.

Located in the Thisworkbook module...

Private Sub Workbook_Open()
Sheets("Sheet1").Range("A1").Value = ActiveWorkbook.BuiltinDocumentProperties(12)
End Sub

 

[CavityCrepe]

This works well enough, thank you.

Do you know why the Application.Volatile line is such a pain though?