Bom dia,

Tenho uma pasta de trabalho com 12 planilhas, em cada planilha uma figura que representa as outras planilhas (Rectangle1 - plan1, Rectangle2 - plan2, Rectangle3 - plan3 e etc). Consegui montar uma macro específica para chamar uma planilha específica:

Sub plani1()

If Sheets("1").Visible = False Then
Sheets("1").Visible = True
Sheets("1").Select
ActiveSheet.Shapes.range(Array("Picture 1")).Select
Sheets("10").Visible = False
End If
End Sub

Porém, o que eu quero, e não consigo fazer, é associar a figura ("Rectangle 1") que tenho na planilha 10 a essa planilha 1 (Sheets("1")). Montei essa macro, mas não está funcionando ,ela não entra no if:

Sub plani1()

If ActiveSheet.Shapes.range(Array("Rectangle 5")).Select Then

Sheets("1").Visible = True
Sheets("1").Select
ActiveSheet.Shapes.range(Array("Picture 1")).Select
Sheets("10").Visible = False
End If
End Sub

Também não estou conseguindo saber como fazer essa associação de Rectangle 5 é Sheets("1") e se clicar em Rectangle 5 ele chamar a Sheet("1") ou ela ler as condições para executar caso eu clique em outro Rectangle.

Alguém pode me dar uma ajuda?! Grato.