use

Function TestFunction(x, y)

rather than

Sub TestFunction(x, y)
--
Gary''s Student


"Jeff" wrote:

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.