Mid() Function Error Msg

[grimesy]

Hi All,

I am trying to import the RP Tissue Prices into my modified Excel s/s that hooks up to BA

I've been trying to run Gary's macro - but each time I do so, the Mid() Function below is failing to compile.

However, I've been having a few problems with BA assistant over the last few days, which may explain it.

Could someone please, please, please! kindly paste the code for the Mid() Function as a reply?

This will allow me to at least manipulate the RP Tissue Prices in Excel, in the off-chance that BA does go down again.

RP getTissuePrice coding below (with the Mid() Function) highlighted:-

"Option Explicit

Dim tissueURLS() As String
Dim tissuePrices As New Collection
Dim pricesLoaded As Boolean

Public Function getTissuePrice(ByVal horse As String) As Double
Dim i As Integer, p As Integer, key As String
p = InStr(horse, " (")
If p <> 0 Then horse = Mid(horse, 1, p - 1)
getTissuePrice = 0
If Not pricesLoaded Then
getTissueURLS
getTissuePrices
End If"

Thanks,
Grimesy

[GaryRussell]

mid is a built in VBA function, there is no code to provide. What compile error message do you get? If you select 'References' from the 'Tools' menu in the code editor does anything show 'missing reference?'

What problems have you been having with Betting Assistant?

[grimesy]

Hi Gary - many thanks for getting back to me.

I'm running that macro in work (wanted to try it on a different PC); and yes your solution is correct; the COM Excel Add-In was missing.

Unclicking same produces the right result.

I was nearly 100% sure that the MId() Function was a VBA (vs. a user-defined) sequence of keystrokes; wasn't sure if it was also user-defined (with a very similiar name) to allow for additional arguments in the COM Excel VBA editor.

On the BA "glitches" - was running it off a pretty old PC in recent days, so that was another potential problem. Again, I've tried it here in work this afternoon and am able to get-in OK.

Thanks for getting back to me so quickly.

Grimesy