Excel Trocar a cor de várias labels

[Adão Malessa]

Preciso trocar a cor de diversas labels, mas não consigo acertar com o BackColor.

Private Sub UserForm_Initialize()

    Dim ctl As MSForms.Control
    Dim TextGroup As MSForms.TextBox
    
    For Each ctl In Me.Controls
        
        If UCase(Left(ctl.Name, 5)) = "LABEL" Then

           Set TextGroup.BackColor = &H8000000F&
        End If
    Next

 

[Midori]

@Adão Malessa Na linha do Set acontece um erro de compilação e tem alguns problemas aí. O primeiro é tentar atribuir uma constante a uma propriedade com Set que serve para atribuir uma referência de objeto a uma variável e além disso a variável TextGroup não recebeu nenhuma referência. Outro é que TextGroup foi declarada como TextBox e você quer pegar um Label.

 

Já que ctl é Control e vai pegar um controle do Form, é só atribuir a cor a propriedade dessa variável na condição que testa o Label,

If UCase(Left(ctl.Name, 5)) = "LABEL" Then
    ctl.BackColor = &H8000000F
End If

 

[Adão Malessa]

Desculpe a insistência. Sou iniciante. Poderia redefinir toda a rotina. 

Desde já muito obrigado.

[Midori]

@Adão Malessa Fica assim,

 

Private Sub UserForm_Initialize()
    Dim ctl As MSForms.Control
    
    For Each ctl In Me.Controls
        If UCase(Left(ctl.Name, 5)) = "LABEL" Then
           ctl.BackColor = &H8000000F
        End If
    Next
End sub

 

[Adão Malessa]

Muito obrigado.

Funcionou .

É que não aparecem as opções "Blackcolor" ou Capition" quando colocamos o "Ctl."

Por isso achava que não funcionava.