Loop all active x textboxes

[ldarley]

Hi all

I want to use a select case instruction to change the colour of a series of active x texboxes based on their values, I've got that working for a fixed reference e.g. Textbox1 but I want to be able to cycle through the rest of the textboxes on the active worksheet. I've tried:

Me.Controls("Textbox" & i).Value
Controls([FONT=open sans, sans-serif, Helvetica, Arial, sans-serif]"Textbox" & i).Value

Neither worked, what should I use?
[/FONT]
Thanks

 

[Domenic]

To refer to ActiveX textboxes on the active worksheet, try...

ActiveSheet.OLEObjects("TextBox" & i).Object.Value

However, if the code resides within the code module for your sheet, the Me keyword can be used to refer to the sheet...

Me.OLEObjects("TextBox" & i).Object.Value

Hope this helps!