Apply one code to multiple objects

Sorry, messed up with tags...

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 Sub