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

Don't make it Volatile.

--
Regards,
Tom Ogilvy


"GM" wrote in message
...
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

Thanks Tom perfect

"Tom Ogilvy" wrote:

Don't make it Volatile.

--
Regards,
Tom Ogilvy


"GM" wrote in message
...
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

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

--
Regards,
Tom Ogilvy

"GM" wrote in message
...
Thanks Tom perfect

"Tom Ogilvy" wrote:

Don't make it Volatile.

--
Regards,
Tom Ogilvy


"GM" wrote in message
...
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