Este fórum está sendo desativado

[fmcblues]

Olá pessoal,

Estou com a seguinte linha de código:
ActiveSheet.Shapes("Valor da célula A1").Visible = True

Gostaria de que "Valor da célula A1" fosse alterando com base no dado inserido na célula A1, que será escolhido por uma lista suspensa.
Teria que declarar alguma variável, mas não estou conseguindo colocar em prática.

Ficarei muito grato, caso alguém tenha o conhecimento e queira compartilhar comigo.

Muito obrigado,

Flávio

[Reinaldo]

Não entendi nada

[fmcblues]

Estou usando este código:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Ocultar As shape
Dim Exibir As Range

'Aqui irá ocultar todos os shapes
'Está ok
For Each Ocultar In ActiveSheet.Shapes
Ocultar.Visible = False
Next

'Aqui estou tentando mostrar o shape que possui o mesmo nome do valor inserido da célula A1
'Mas não está funcionando
Set Exibir = ActiveSheet.Range("A1")
ActiveSheet.Shapes("Exibir").Visible = True

End Sub

Usando o If, consegui... Mas não resolve meu problema, pois irei usar 30 shapes (e 30 macros). Em cada caso somente 1 shape seria exibido.