Este fórum está sendo desativado

[Lurosan]

Pessoal, boa tarde.
Estou há tempos tentando resolver um problema; mas sem sucesso!!

Inserir alguns Controles ActiveX numa planilha, por exemplo: Label1, Label2..., e um CommandButton1.

Tenho este comando que deixam todos os objetos não visíveis, com exceção do CommandButton:
Worksheets("Plan3").OLEObjects.Visible = False
CommandButton1.Visible = True

Meu desafio é deixar visível a Label1 se o texto da célula A1 = Label1, deixar visível a Label2 se o texto da célula A1 = Label2

Muito agradecido.

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub ExibeLabel()
 Dim objX As Object
  With Sheets("Plan3")
   For Each objX In .OLEObjects
    If objX.Name = .[A1] Then objX.Visible = True
   Next
  End With
End Sub

[Lurosan]

Oswaldo, muito obrigado cara.
Me ajudou muito.
Sucesso pra você!!!!!