Veja se o modelo anexo atende.

No caso do Cálculo, o botão alternará entre cálculo manual e cálculo automático - (atenção no uso).

usa a propriedade Visible como false..

Ex: If Range("A1") = "Vertical" Then
Sheets(1).Shapes("Vertical").Visible = True
Sheets(1).Shapes("Horizontal").Visible = False
Else:
Sheets(1).Shapes("Vertical").Visible = False
Sheets(1).Shapes("Horizontal").Visible = True
End If

Quanto à questão do Clique, abra o módulo com o nome da planilha, e selecione o evento Worksheet_SelectionChange

Bom dia consegui aplicar as informações que estava querendo.

Tem uma coisa que não estou conseguindo fazer ainda a celula "D51", esta minha lista dinâmica que me da a seleção para esconder uma figura ou outra.

O que estou querendo agora é quando eu apagar as informações da celul "D51", não mostra nenhuma das duas figuras, e não estou conseguindo.

Segue planilha anexa para melhor entendimento.

Não vi nenhuma Lista de Seleção na Célula "D51", mas pela rotina, é só adicionar as 2 linhas conforme abaixo logo apo a verificação.

    If Target.Address <> Range("D51").Address Then
        ActiveSheet.Shapes("Retângulo 2").Visible = False
        ActiveSheet.Shapes("Retângulo 47").Visible = False
    
    Exit Sub

Resolvi editar para explicar melhor o porque das linhas acima logo apos da verificação de qual range foi alterado e não apos a linha que verifica se o valor é igual a vazio (ElseIf Target.Value = "" Then).

Como em seu modelo você Mesclou os as celulas D51:F53, ao se Deletar o valor na verificação inicial :
If Target.Address <> Range("D51").Address Then - o retorno será "$D$51:$F$53" e sairá da Rotina.

Agora, se as celulas não estivessem Mescladas, o retorno seria somente "$D$51", então teriamos de colocar as instruções apos : ElseIf Target.Value = "" Then

[]s

Bom dia, consegui o que queria e apareceu outro problema.

Os quadradinho de seleção estão pequenos por conta das linhas que diminui.
Quando seleciono "D51", mostra o tanque, com passa para próxima seleção, o tanque desaparece, ai tenho que voltar para "D51" novamente, e isso acontece em todas a listas abaixo a partir de "D51".