Apply one code to multiple objects

Hi all,

I have built a multipage userform which holds around 50 of different objects, such as textboxes, comboboxes etc. For every single object I have written 2 codes that format that object on entry and exit. How do I make these 2 codes universal for the uniform, so that they kick in when any of 50 objects get focus? It drives me mad to go through 100 codes and do changes!

[CODE][/Private Sub Title_Enter()
If Title.Text = "Title" Then
Title.Text = ""
Title.BackColor = RGB(255, 255, 153)
End If
End Sub
Private Sub Title_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Trim(Title.Text) = "" Then
Title.Text = "Title"
Title.BackColor = RGB(255, 255, 255)
End If
End SubCODE]

I would be so much gratefull if someone could help me out with this issue!

Thanks in advance!

Sorry, messed up with tags...

Please Login or Register  to view this content.

Hi xlnitwit and thanks for your response.

Code is very similar to every control, apart from control name textbox1, 2, 3 etc. Also, the text in each control is different. The text in a control is a replacement of a label and saving space on a userform. For example textbox1 holds text "Title" in it until textbox gets focus. When it gets focus text disappears and backcolor is changed to highlight the control.

I have been searching web for a solution, but gave up now, hence asking you guys for a help. Also, I'm a very beginner in VBA, so please bear with me...

No, it is not.

Sorry mate, I don't really get it. Are you saying it cannot be done? Or what do I need to do?

Oh, sorry again. I think I got it now. I still need to copy them 2 codes 50 times, but it will be easier to maintain any changes, which can be done in a subroutines.

Isn't there a piece of code that would identify which object got focus and then apply them 2 codes?

Thanks mate, definitely much easier now! You made my day, thanks.