Ajuda vba excel com formas

[fer.mf]

Ola pessoal, estou desenvolvendo uma planilha e me surgiu uma duvida. Tenho várias macros e para executá-las coloquei em minha planilha retângulos através do comando inserir formas, e atribui uma macro para cada um. Até ai tudo legal funcionando certinho. Só que eu quero que ao clicar no retângulo o texto que está escrito dentro do retângulo mude. Por exemplo no botão está escrito expandir ao clicar quero que ele mude para encolher. Consegui fazer toda a macro só não sei como chamar o retângulo no vba nem como alterar sua propriedade texto . Alguém consegue me ajudar?  

[Basole]

Se puder postar sua planilha ou um exemplo aproximado facilita o entendimento da sua duvida.

[Visitante]

Experimente:

Sub MudaTextoRet()    With ActiveSheet.Shapes(Application.Caller).TextFrame.Characters                Select Case .Text                        Case "expandir" 'se o botão estiver com texto "expandir"                Call macro1 'roda a sua macro1                .Text = "encolher" 'muda o texto para "encolher"                        Case "encolher" 'se o botão estiver com texto "encolher"                Call macro2 'roda a sua macro2                .Text = "expandir" 'muda o texto para "expandir"                End Select    End WithEnd Sub

[fer.mf]

Perfeito!!! Funcionou direitinho. Muito obrigado