I've made a custom object with a 'Function' method and need each instance of
the object to call a different UDF. Is there a way if I assign the UDF name
to the object's function as a string to call the function.

For example;
Public Function CalcRainfall(iDate as date) as double
'code to calculate rainfall...
End Function

Public Sub TestCalcRainfall()
Dim sUDF as string

sUDF = "CalcRainfall"

CustomObject.Function = sUDF
' code to run UDF

End Sub

Thanks,
Ryan

Public Function CalcRainfall(iDate As Date) As Double
'code to calculate rainfall...
End Function

Public Sub TestCalcRainfall()
Dim sUDF As String

sUDF = "CalcRainfall"

Application.Run sUDF, Date

End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Hokievandal" <(E-Mail Removed)> wrote in message
news:74668BEC-D984-4854-8529-(E-Mail Removed)...
> I've made a custom object with a 'Function' method and need each instance
> of
> the object to call a different UDF. Is there a way if I assign the UDF
> name
> to the object's function as a string to call the function.
>
> For example;
> Public Function CalcRainfall(iDate as date) as double
> 'code to calculate rainfall...
> End Function
>
> Public Sub TestCalcRainfall()
> Dim sUDF as string
>
> sUDF = "CalcRainfall"
>
> CustomObject.Function = sUDF
> ' code to run UDF
>
> End Sub
>
> Thanks,
> Ryan
>
>

Thanks Bob...

"Bob Phillips" wrote:

> Public Function CalcRainfall(iDate As Date) As Double
> 'code to calculate rainfall...
> End Function
>
> Public Sub TestCalcRainfall()
> Dim sUDF As String
>
> sUDF = "CalcRainfall"
>
> Application.Run sUDF, Date
>
> End Sub
>
> --
> HTH
>
> Bob
>
> (there's no email, no snail mail, but somewhere should be gmail in my addy)
>
> "Hokievandal" <(E-Mail Removed)> wrote in message
> news:74668BEC-D984-4854-8529-(E-Mail Removed)...
> > I've made a custom object with a 'Function' method and need each instance
> > of
> > the object to call a different UDF. Is there a way if I assign the UDF
> > name
> > to the object's function as a string to call the function.
> >
> > For example;
> > Public Function CalcRainfall(iDate as date) as double
> > 'code to calculate rainfall...
> > End Function
> >
> > Public Sub TestCalcRainfall()
> > Dim sUDF as string
> >
> > sUDF = "CalcRainfall"
> >
> > CustomObject.Function = sUDF
> > ' code to run UDF
> >
> > End Sub
> >
> > Thanks,
> > Ryan
> >
> >
>
>
>