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
--
Mike Watkins