Help Needed There are some error in my code

[dukesfather]

Function AccumulateReturn(myPerf As Range) As Single

Dim accRet As Single
Dim numObs As Integer
Dim i As interger

numObs = myPerf.Count
accRet = 0
For i = 1 To numObs
accRet = accRet * (1 + myPerf(i))
End If
i = numObs
Next i
accRet = accRet - 1
MsgBox("Accumulated Return from" & Text(acctRet,#0.00) & "Observations is: " TexT(numObs, ##00.00#), vbOkOnly, "My Final" AccumulateReturn = accRet)

End Function

[FDibbins]

Hi, welcome to the forum

What is wrong with the code? What is it (or is it not) doing that you did (did not) want it to do?

Sorry to do this to you on your 1st post, but...
Please take a moment to read the forum rules and then amend your thread title to something descriptive of your problem - not what you think the answer might be. (think google search terms?). Once you have done this please send me a PM and I will remove this request. (Also, include a link to your thread - copy from the address bar)

Many members search our previous posts, and thread titles play a big part of the search. I doubt anybody would do a search based on your title?

To change a Title on your post, click EDIT POST then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(note: this change is not optional )

Also, Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(I will add them for you - this time )