Macro not working with an error sub or function not defined

[ghrek]

Hi

I have the following macro and it says "sub or function not defined"??

Any Ideas?

'

Sub J99653
Dim Arr(), Dict As Object, Col As String, Str As String, Valu As Long, i As Long
Set Dict = CreateObject("Scripting.Dictionary")
Arr = Cells(1).CurrentRegion.Value
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    Valu = Range("E2")
    EvaluateNumbers Arr, Dict, Str, Valu, 1
    If Str <> "" Then
        Range(Str).Interior.Color = vbGreen
    End If
    Str = ""
Next i
End Sub

 

[Peter_SSs]

Any Ideas?

Well, you have line in that code that says ...

EvaluateNumbers Arr, Dict, Str, Valu, 1

.. and we/Excel have no idea what EvaluateNumbers is? presumably that is why you are getting that message.

 

[nemmi69]

EvaluateNumbers Arr, Dict, Str, Valu, 1

I'm not even sure it is referring to a function either

 

[Peter_SSs]

.. and we/Excel have no idea what EvaluateNumbers is?

Also, when the code gets to that line, Dict has not been populated, nor has Str been give a value.

 

[ghrek]

Many Thanks

 

[Peter_SSs]

You're welcome.

 

[nemmi69]

No prob

 

[nemmi69]

Just worked out that tis is a call to another Sub

EvaluateNumbers Arr, Dict, Str, Valu, 1