Compile error in Userform macro

[Guest]

The following routine results in a compile error "Next without For"
....any idea why?

Private Sub ComboBox1_Change()
Dim Row As Integer
For Row = 8 To 23
If Sheets("Control data").Cells(Row, 3) = CapDials.ComboBox1.Value
Then
CapDials.ListBox1.AddItem Sheets("Control data").Cells(Row, 4)
Next Row

End Sub

 

[Bob Phillips]

No End If

Private Sub ComboBox1_Change()
Dim Row As Integer
For Row = 8 To 23
If Sheets("Control data").Cells(Row, 3) = _
CapDials.ComboBox1.Value Then
CapDials.ListBox1.AddItem Sheets("Control data").Cells(Row, 4)
End If
Next Row

End Sub


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

 

[Guest]

Duh! Thanks Bob
--
Mike Watkins

No End If

Private Sub ComboBox1_Change()
Dim Row As Integer
For Row = 8 To 23
If Sheets("Control data").Cells(Row, 3) = _
CapDials.ComboBox1.Value Then
CapDials.ListBox1.AddItem Sheets("Control data").Cells(Row, 4)
End If
Next Row

End Sub


--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)