expected end statement?

[raven123]

Here's my code

Sub Asgnto_Click()
Dim i
For i = 0 To ENotify.ListCount - 1
If ENotify.List(i) = AsgnTo.List(AsgnTo.ListIndex) Then
ENotify.ListIndex = AsgnTo.list
Exit For
End If

Next i

End Sub


..... If i put Dim i as integer I get a error stating its looking for an end stament after the i.

.....also on the Next Statement it also want to have end statement before the i.

What I want this code to do is read whats in what
user list(1) and when you tab over to the next user list(2) it picks up the name that you choose in the 1 userlist

[HeSaidJoe]

is that the question..ie...
Dim i As Integer should not create a problem, but I would personally use a better id... (intCounter)

Sub Asgnto_Click()

Dim i As Integer
For i = 0 To ENotify.ListCount - 1
If ENotify.List(i) = AsgnTo.List(AsgnTo.ListIndex) Then
ENotify.ListIndex = AsgnTo.List
Exit For
End If

Next i

End Sub