Using a function

[Guest]

Hi,

I want a function to return a value, but it is not working. Here is my code.

Sub NewTest()
v = 1: j = 9
x = TestFunction(v, j)
End Sub

Sub TestFunction(x, y)
TestFunction = x ^ 2 + y
End Sub

Error Message = "compile error, expected function or variable",
highligted --> "x = TestFunction(v, j)"
Does anyone know how to fix this?

Thanks for your help.

 

[Guest]

use

Function TestFunction(x, y)

rather than

Sub TestFunction(x, y)

 

[Guest]

Duh!

I should have seen that -

Thanks

use

Function TestFunction(x, y)

rather than

Sub TestFunction(x, y)