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

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