----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.

http://www.microsoft.com/office/comm...et.f unctions

Why wait?

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocument*Properties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"fwbuckley" wrote in message
...


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.


http://www.microsoft.com/office/comm...id=891496a8-5e
51-46a4-b6dd-4daa6be92808&dg=microsoft.public.excel.worksheet.f unctions

I can't seem to get this to work with Excel 2003. Is there anything special
I need to do? Or is it already in there somewhere?

"Bob Phillips" wrote:

Why wait?

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentÂ*Properties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"fwbuckley" wrote in message
...


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.


http://www.microsoft.com/office/comm...id=891496a8-5e
51-46a4-b6dd-4daa6be92808&dg=microsoft.public.excel.worksheet.f unctions

Dark T

First off.........save a backup of your workbook.

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste Bob's Function DocProps code in there.

Save the workbook and hit ALT + Q to return to Excel window.

Enter the formula in any cell Bob has shown in his post.

For a list of other properties that may be available(not all are), run this
macro.

Sub props()
rw = 1
Worksheets.Add
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
rw = rw + 1
Next
End Sub


Gord Dibben Excel MVP


On Thu, 25 Jan 2007 10:10:01 -0800, DarkThunder
wrote:

I can't seem to get this to work with Excel 2003. Is there anything special
I need to do? Or is it already in there somewhere?

"Bob Phillips" wrote:

Why wait?

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocument*Properties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"fwbuckley" wrote in message
...


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.


http://www.microsoft.com/office/comm...id=891496a8-5e
51-46a4-b6dd-4daa6be92808&dg=microsoft.public.excel.worksheet.f unctions

I have done that. I input the function:

=DocProps("Last save time")

and it gives me this error:

#VALUE!

What does that mean? Any idea?

Dark Thunder

PS. Thanks for the list of other properties!

"Gord Dibben" wrote:

Dark T

First off.........save a backup of your workbook.

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste Bob's Function DocProps code in there.

Save the workbook and hit ALT + Q to return to Excel window.

Enter the formula in any cell Bob has shown in his post.

For a list of other properties that may be available(not all are), run this
macro.

Sub props()
rw = 1
Worksheets.Add
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
rw = rw + 1
Next
End Sub


Gord Dibben Excel MVP


On Thu, 25 Jan 2007 10:10:01 -0800, DarkThunder
wrote:

I can't seem to get this to work with Excel 2003. Is there anything special
I need to do? Or is it already in there somewhere?

"Bob Phillips" wrote:

Why wait?

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentÂ*Properties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"fwbuckley" wrote in message
...


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.


http://www.microsoft.com/office/comm...id=891496a8-5e
51-46a4-b6dd-4daa6be92808&dg=microsoft.public.excel.worksheet.f unctions

It could mean you have not yet saved the workbook.

Are you doing this in a new workbook?


Gord

On Thu, 25 Jan 2007 11:08:01 -0800, DarkThunder
wrote:

I have done that. I input the function:

=DocProps("Last save time")

and it gives me this error:

#VALUE!

What does that mean? Any idea?

Dark Thunder

PS. Thanks for the list of other properties!

"Gord Dibben" wrote:

Dark T

First off.........save a backup of your workbook.

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + R to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste Bob's Function DocProps code in there.

Save the workbook and hit ALT + Q to return to Excel window.

Enter the formula in any cell Bob has shown in his post.

For a list of other properties that may be available(not all are), run this
macro.

Sub props()
rw = 1
Worksheets.Add
For Each p In ActiveWorkbook.BuiltinDocumentProperties
Cells(rw, 1).Value = p.Name
rw = rw + 1
Next
End Sub


Gord Dibben Excel MVP


On Thu, 25 Jan 2007 10:10:01 -0800, DarkThunder
wrote:

I can't seem to get this to work with Excel 2003. Is there anything special
I need to do? Or is it already in there somewhere?

"Bob Phillips" wrote:

Why wait?

'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocument*Properties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"fwbuckley" wrote in message
...


----------------
This post is a suggestion for Microsoft, and Microsoft responds to the
suggestions with the most votes. To vote for this suggestion, click the "I
Agree" button in the message pane. If you do not see the button, follow
this
link to open the suggestion in the Microsoft Web-based Newsreader and then
click "I Agree" in the message pane.


http://www.microsoft.com/office/comm...id=891496a8-5e
51-46a4-b6dd-4daa6be92808&dg=microsoft.public.excel.worksheet.f unctions