hi Oercim,

Am Sat, 9 Mar 2013 10:24:12 -0800 (PST) schrieb oercim:

Function myfunc(a As Range)
mayfunc = Index(a, 1, 2)
End Function

try:
myfunc = WorksheetFunction.Index(a, 1, 2)


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2