Hope I'm in right newsgroup, othervise sorry.

I have a problem when compiling following code. The message i get is: "NEXT
without FOR". It's on the last NEXT the compile-error appears.
Could anyone please help me and let me know how I should write the code
instead.

Thanx in advance.

For intCC2 = 1 To 10
   TAGNAMN_CC2(intCC2) = "CC2_SMS" & intCC2
   eda_err = eda_get_one_float(Node, TAGNAMN_CC2(intCC2), Field,
fValue_CC2(intCC2))

   If fValue_CC2(intCC2) = 1 And Not cycle_CC2(intCC2) Then
       cycle_CC2(intCC2) = True
       RunLog ("Customer Care 2 = CC2 " & intCC2 & " aktiv")
       List1.AddItem "Customer Care 2 = CC2 " & intCC2 & " aktiv " &
Time(Now)

           'Sänder ut larmet via SENDMAIL
           For intCC2Tel = 1 To intAntalTelCC2
               temp_CC2(intCC2) = Shell("d:\Mail\Sendmail /I /" &
TelNrCC2(intCC2Tel) & " /" & TextCC2(intCC2))
               Wait 0.6
           Next

   ElseIf fValue_CC2(intCC2) = 0 Then
       cycle_CC2(intCC2) = False
Next