Mass Replace on Excel Userforms

[senators40]

Hi,

I have a userform that has textboxes (approx 200) that have to be updated occasionally

Some sample textbox names are:

Salaries_2006
Land_2006

I would like to change them to

Salaries_2007
Land_2007

Is there any way of using some sort of find / replace for the names in textboxes. The find / replace can be used for the actual visual basic text but it doesn't seem to work with the textboxes.

I also have "labels" that need to be updated as well

Any help would be appreciated

Thanks,

Jeff

 

[xlbo]

untested.....

For each ctrl in controls
 if right(ctrl.name),4) = "2006" then
   ctrl.name = Left(ctrl.name,len(ctrl.name)-4) & "2007"
 end if
next

Rgds, Geoff

We could learn a lot from crayons. Some are sharp, some are pretty and some are dull. Some have weird names and all are different colours but they all live in the same box.

Please read FAQ222-2244 before you ask a question