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

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" <(E-Mail Removed)> wrote in message
news:6DCABDEC-9058-406B-B66F-(E-Mail Removed)...
> 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

Duh! Thanks Bob
--
Mike Watkins


"Bob Phillips" wrote:

> 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" <(E-Mail Removed)> wrote in message
> news:6DCABDEC-9058-406B-B66F-(E-Mail Removed)...
> > 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
>
>
>