UDF in XP vs 2003

[Pocho]

I have the following code... cell G1 of worksheet Fund List contains a counta function for the length of the data


Public Function getname(Ticker As String, Day As Date)

Dim DataFileName As String
Dim rng As Range
Dim Lines As Integer


Lines = Workbooks("MASTER FUND LIST").Worksheets("Fund List").Range("G1").Value + 3
Set rng = Workbooks("MASTER FUND LIST").Worksheets("Fund List").Range(Cells(4, 5), Cells(Lines, 9))
DataFileName = Application.VLookup(Ticker, rng, 5, False)

getname = DataFileName

End Function


It works on my computer at home, but not at my office.
At home I use Office XP while at work it is 2003 - could that be the problem? If so is there something to do to make it work on 2003 and/or on both versions.
If it not a version issue, what else could it be?

Thanks

 

[Damon Ostrander]

Hi Pocho,

I suggest you change

DataFileName = Application.VLookup(Ticker, rng, 5, False)

to

DataFileName = Application.WorksheetFunction.VLookup(Ticker, rng, 5, False)

and see if that helps.

Damon

 

[Pocho]

Thanks for idea, but it does not work on 2003 even with the addition. I have isolated the problem so that even this is not working - not even to mention the vlookup!!

Public Function testings(Ticker As String, Dia As Long)

testings = Workbooks("Book1").Worksheets(Ticker).Range("A1").Value

End Function

from the a worksheet (which has the value 5 in cell A1, Sheet1 in A2 and 345 in A3) I call the UDF with =testings(A2, A3)

result should be 5 - simple as can be. I get #Value

Someone with 2003 please try this and let me know if it works! debugging these UDF's is like the twilight zone!!!

Thanks Bill!