Dave Peterson
12/15/2006 1:06:00 AM
Add and "End if" before the "next mycontrol" line.
Not matching if/end if's can give this kind of error.
And I'd use
If TypeOf MyControl Is msforms.TextBox Then
MyControl.Text = ""
ElseIf TypeOf MyControl Is msforms.Label Then
Sometimes if you're not specific, bugs can be difficult to find. And since
there's a textbox on the Drawing toolbar and a Label on the Forms toolbar, you
can avoid confusion.
ZootRot wrote:
>
> Excel 2003 VBA
>
> I'm getting an error "next without for" in the following, simple code.
> Doesn't make sense to me. Any help?
>
> Private Sub CommandButton3_Click()
>
> Dim MyControl As Control
>
> For Each MyControl In Me
> If TypeOf MyControl Is TextBox Then
> MyControl.Text = ""
> ElseIf TypeOf MyControl Is Label Then
> MyControl.Caption = ""
> Next MyControl
>
> End Sub
--
Dave Peterson