Excel document propeties in Cells
Hi
Maybe UDF like this will do:
Public Function ShowPropertie(strProp As String)
Select Case strProp
Case "Author"
WBProp = ThisWorkbook.Author
Case "FileFormat"
WBProp = ThisWorkbook.FileFormat
Case "FullName"
WBProp = ThisWorkbook.FullName
Case "Name"
WBProp = ThisWorkbook.Name
Case "Path"
WBProp = ThisWorkbook.Path
Case "ReadOnly"
WBProp = ThisWorkbook.ReadOnly
Case "RevisionNumber"
WBProp = ThisWorkbook.RevisionNumber
Case "Title"
WBProp = ThisWorkbook.Title
Case "ActivePrinter"
WBProp = Application.ActivePrinter
Case "Calculation"
WBProp = Application.Calculation
Case "OrganizationName"
WBProp = Application.OrganizationName
Case "UserName"
WBProp = Application.UserName
End Select
End Function
Copy the UDF into your workbook module, and into any cell enter the formula
like
=WBPROP("UserName")
--
Arvi Laanemets
( My real mail address: arvi.laanemets<attarkon.ee )
"e-csl" wrote in message
...
Is there any way of showing Excel document properties in cells?
For example, IŽd like to show the Title property in a cell.
Thanks.
Carlos.
|