For each next loop

[craigyg]

I would like to execute some code for each textbox in a userform. I keep trying to use a For-Each-Next loop and I get errors. I tried something like this:


Dim txtbx As TextBox

For each txtbx in USERFORMNAME
Next txtbx


where USERFORMNAME is the name of the userform that the textboxes are on. What am I doing wrong here?

- craig

 

[Norie]

craig

You need to loop through the forms controls and test if they are textboxes.

For Each ctl In Me.Controls
     If TypeName(ctl) = "TextBox" Then
         MsgBox ctl.Name & " is a textbox."
     End If
Next ctl

 

[craigyg]

Thanks

Thanks I will try that. Regards,

Craig

 

[craigyg]

Thanks again

Wow! That worked great. Thanks for the syntax help.