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(B1B2)

Returns B1B2
--
Regards,
Tom Ogilvy

wrote in message
oups.com...
I'm trying to do the following:

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

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

named criteria, not to return whether B1B2 (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