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)



"watkincm" wrote in message
...
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