Making a function global
 

I have this function which I think that I found here. What I want to do is
make this function global so that it can be used in any workbook or
worksheet. So the question is how can I make this happen.

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

Making a function global
 

make it public and put it under the Modules folder

Public 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


"GM" wrote:

I have this function which I think that I found here. What I want to do is
make this function global so that it can be used in any workbook or
worksheet. So the question is how can I make this happen.

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

Making a function global
 

Create an addin and store it there.

http://support.microsoft.com/default.aspx?kbid=211563
How to create an add-in file in Excel 2000


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"GM" wrote in message
...
I have this function which I think that I found here. What I want to do is
make this function global so that it can be used in any workbook or
worksheet. So the question is how can I make this happen.

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

Making a function global
 

To make a function accessable by any workbook the best place to put it is in
an addin. Your function causes a bit of a problem though if you send it to
anyone who does not have the addin. Application.volitile will force it to be
evaluated whenever a recalc is done and the function will return an error as
it will not be defined for them. The only effective way around that would be
to add the function within a module to each spreadsheet that you develope and
then the project will have to have a digital signature or the user will have
to enable macro's...
--
HTH...

Jim Thomlinson


"GM" wrote:

I have this function which I think that I found here. What I want to do is
make this function global so that it can be used in any workbook or
worksheet. So the question is how can I make this happen.

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

Making a function global
 

Jim,
Is there an easy way to install the function into each workbook with out
going to the VB editor? I would love to just have a macro that I could
trigger and it would put it into the workbook.

THannks
GM


"Jim Thomlinson" wrote:

To make a function accessable by any workbook the best place to put it is in
an addin. Your function causes a bit of a problem though if you send it to
anyone who does not have the addin. Application.volitile will force it to be
evaluated whenever a recalc is done and the function will return an error as
it will not be defined for them. The only effective way around that would be
to add the function within a module to each spreadsheet that you develope and
then the project will have to have a digital signature or the user will have
to enable macro's...
--
HTH...

Jim Thomlinson


"GM" wrote:

I have this function which I think that I found here. What I want to do is
make this function global so that it can be used in any workbook or
worksheet. So the question is how can I make this happen.

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