Would that upgrade my Excel 97 to Excel 2003?

Thanks for all your help.

I am green when it comes to programming, so if you can tell me how to add the two functions I will do it.

Thanks again for your help.

Everyone please keep in mind that this spreadsheet was created on Microsoft Excel 2003. It might not work well on previous versions.

Public Function replace(ByVal source As String, ByVal searchfor As String, ByVal replacewith As String) As String
Dim ls As Integer, lf As Integer, lr As Integer
ls = Len(source)
lf = Len(searchfor)
lr = Len(replacewith)
Dim i As Integer
i = 1
While i <= ls + 1 - lf
If Mid(source, i, lf) = searchfor Then
source = Left(source, i - 1) + replacewith + Mid(source, i + lf)
ls = ls + lr - lf
End If
i = i + 1
Wend
replace = source
End Function

For the missing help file, see: http://support.microsoft.com/kb/158224

But I wouldn’t think that would prevent the add-in from working. What I suspect is that it’s trying to display an error, but having that file missing is disabling its ability to put up the error message. The reason I suspect that is that I think the typical message for EXCEL 97 is a compiler error message related to the missing SPLIT() function, and VEENLR3.HLP is related to the VB editor.

So the add-in may not work on your machine, with that version of EXCEL. I have seen a suggested solution, but can’t try it myself as I only have EXCEL 2002 — the suggestion was to add these two functions yourself, since EXCEL 97 doesn’t have them:

Public Function split(ByVal source As String, ByVal delimiter As String) As Variant
Dim ld As Integer
Dim result() As String
Dim rs As Integer
rs = 0
ld = Len(delimiter)
Dim i As Integer
i = InStr(1, source, delimiter)
Do While i 0
rs = rs + 1
ReDim Preserve result(0 To rs)
result(rs - 1) = Left(source, i - 1)
source = Mid(source, i + ld)
i = InStr(1, source, delimiter)
Loop
result(rs) = source
split = result
End Function

Public Function replace(ByVal source As String, ByVal searchfor As String, ByVal replacewith As String) As String
Dim ls As Integer, lf As Integer, lr As Integer
ls = Len(source)
lf = Len(searchfor)
lr = Len(replacewith)
Dim i As Integer
i = 1
While i

When I try to run the spreadsheet I get a message that says cannot find Microsoft Shared\VBA\VEENLR3.HLP file. Apparently that file does not exist on my machine. Any idea where I can download it from?

Appreciate the reply and help.

> Tools > Add-Ins

If not, you need to activate it by using the Browse button on that page to locate it and tell EXCEL where it is located.

However, if I recall correctly, I think there are VBA functions the add-in uses (e.g. SPLIT()) that weren’t part of the VBA function set on EXCEL 97, so you may run into problems there…?

The spreadsheet will not update, I get an error that it cannot find RCH_Stock_Market_Functrions.xla, but it is in the SMF Add-In folder, any suggestions?

I am using Excel 97 SR-1

Thanks

Thank you for answering Jason’s question. I think on the next version of the spreadsheet, I’m going to use “None” as the ticker and only use one line of data to start. That should make it a bit easier to open and start using.

The lag time will depend on how many unique ticker symbols are on the worksheet when you open it. You can minimize it by saving the worksheet on your computer with only one data line and using “None” as the ticker symbol, or just leaving the cell empty. Either of those values for a ticker symbol cancels the Internet retrieval process of the add-in functions. However, the functions will return a value of “Error” when those ticker symbol values are used. And any calculations are likely to return the “#VALUE!” error message.

However, if you tell it not to update links, you’ll get all of the formulas with the hard-coded location of the add-in as George saved it from his machine. You could always do a “Change All” on the formulas — just strip off all of the location information so you’re just left with something like:

=RCHGetElementNumber($A6,4)