Silvio Alves Nitro

Muito obrigado Basole Muito obrigado Midori Com os vossos códigos e explicações consegui resolver o problema. Muito obrigado aos dois

Desde já agradeço a ajuda, podia me indicar um pouco mais onde colocar esse código ? já testei de algumas formas mas sem sucesso, dá-me sempre erro e pede -me uma variável para numero. Peço desculpa pelo incomodo, obrigado

@Basole Sim tentei mas não consegui

@Basole o meu senario e praticamente o que você indicou no inicio deste poste, e esta a funcionar bem o meu único problema e que tenho 900 textbox e queria que a funçao fosse aplicada apenas da textbox32 ate a textbox800 porque da forma que tenho está a a funcionar mas nas outras textbox também esta a aplicar a função muito obrigado (MODULO CLASSE) Option Explicit Public WithEvents TextGroup As MSForms.TextBox Private Sub TextGroup_Change() If TextGroup = "A" Then TextGroup.BackColor = &HFF& ElseIf TextGroup = "B" Then TextGroup.BackColor = &HFF00& Else TextGroup.BackColor = &H80000005 End If End Sub '----------------------------------------------------------------- Sub CarregaSuaClasseTextbox() Dim ctl As MSForms.control Dim i! i = 1 For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then ReDim Preserve TextBoxes(1 To i) Set TextBoxes(i).TextGroup = ctl i = i + 1 End If Next ctl '----------------------------------------------------------- Sub UserForm_Initialize() Call CarregaSuaClasseTextbox ' Chama a sub que configura os textbox, adicionando a classe End Sub

Boa tarde, o exemplo a cima resolveu um problema meu, no entanto como posso fazer para que a função só seja aplicado entre a textbox30 e a textbox50? no exemplo a cima aplica a todas as textbox do userform. obrigado