Guru do Excel e Power BI

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

Não entendi nada

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.