custom function

[bn2hunt]

I have created a funtion in Excel VB

Public Function endid(var1 As String)
varlen = Len(var1)
startpar = InStr(var1, "(&quot
endpar = InStr(var1, &quot&quot
idlen = endpar - startpar
endid = Mid(var1, startpar + 1, idlen - 1)
End Function

Workbook
cell a1 = Security Update for Microsoft Windows XP (KB328940)
cell b1 = +endid(a1)
I get an error in cell b1 #name?


I want to pass the contects of a cell and pull the data that is in between the parentheses. If I fill in var1 with data and step through it works and pull the info I want.
Thanks

DDNWOLFF

 

[SkipVought]

Hi,

Your function works!

Your function must be in a MODULE and NOT in a worksheet object!



Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[VBAjedi]

DDNWOLFF,

Your function and described test setup work perfectly on my machine (XL97/Win 98). Did you put the code in a normal code module?

Try putting a breakpoint at the end of your function so you can see what value it's trying to return. I suppose it's possible that it's not making the necessary jump to translate your range reference argument to a string containing the CONTENTS of that range (although it does on my machine!).

VBAjedi

 

[bn2hunt]

Thanks, I figured it was something simple. This was my first custom function in excel so I wasn't exactly sure how to do it.