Always prompted for Save with function

[Guest]

I have this function in a module, however if I open the workbook and make no
changes to it and go to close it I am always prompted to save yes or no. How
can I fix this?
Function DocProps(prop As String)
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


TIA
GM

 

[Tom Ogilvy]

Don't make it Volatile.

 

[Guest]

Thanks Tom perfect

Don't make it Volatile.

 

[Tom Ogilvy]

I am not sure it is perfect, because the point of the Volatile is to force
the function to update. You might need to come up with a cleaver time to
force a calculatefull - however, you would again have to avoid doing it when
no changes are made to the workbook.

Possibly You could do it in the workbook open event, then set

ThisWorkbook.Saved = True

at the end of the event.

Not up on events, see Chip Pearson's site for an overview
http://www.cpearson.com/excel/events.htm