UDF argument problem

I'm trying to do the following:

When you enter the following function:
=SDSUM(A1:B3,$B$1,B1>B2)

I want the third argument in:
Function SDSUM(database, col, criteria)

named criteria, not to return whether B1>B2 (True of False), but (just)
the string. However, I don't want to put quotation marks around it
because I want the user to click around in the worksheet to make
selections.

Any way to do this?

Thanks for any ideas.

Hessel

Public Function Test(sStr As String)
Dim sCrit As String
Set rng = Application.Caller
sCrit = rng.Formula
sCrit = Mid(sCrit, 7)
Test = Left(sCrit, Len(sCrit) - 1)
End Function

=Test(B1>B2)

Returns B1>B2
--
Regards,
Tom Ogilvy

<[email protected]> wrote in message
news:[email protected]...
> I'm trying to do the following:
>
> When you enter the following function:
> =SDSUM(A1:B3,$B$1,B1>B2)
>
> I want the third argument in:
> Function SDSUM(database, col, criteria)
>
> named criteria, not to return whether B1>B2 (True of False), but (just)
> the string. However, I don't want to put quotation marks around it
> because I want the user to click around in the worksheet to make
> selections.
>
> Any way to do this?
>
> Thanks for any ideas.
>
> Hessel
>

I would never have thought of using application.caller for this, but it
works!


Thanks a lot!