JS5

Muito obrigado pelo retorno João. No 2003 eu já fiz isso e não adiantou! você teria outra ideia para resolver isso no 2003? No 2007 realmente deu certo, porém surgiu outro problema.... Ok....um botão raiz engloba os internos, mas ao reabrí-lo ele abre todos os botões sem mater a ordem de linhas abertas e fechadas anterior. Deve ser meio complexo, mas será que não tem como armazenar essa informacao dos botoes interno quando se fecha e abre o botao raiz?? Bom se não der td bem!....você já me ajudou bastante já! Obrigado JS5

Boa noite Srs, Não sou profissional da área, mas estou desenvolvendo um botão com macro em VBA para excel. O mesmo deve ser copiado/colado em qualquer célula e, ao ser clicado, deve esconder toda(s) a(s) linha(s) abaixo dele. A célula que estiver a direita do botão deve conter o número de linhas que se deseja esconder, para que a macro leia o valor e possa ser usado no VBA. Ao clicar novamente, o mesmo deve mostrar novamente toda(s) a(s) linha(s) escondida(s). Esse botão já funciona com o código apresentado abaixo e a intenção é usá-lo para criar listas de tarefas com ITENS e SUBITENS. O meu problema é o seguinte: Quando quero usar esses botões como subítens de um item raiz, ou seja, tenho um botão na linha 10 e quero que esconda da linha 11 até a linha 20(10 linhas), sendo que existem mais outros 3 botões, todos com a mesma macro, nas linhas 14, 17 e 19, o que acontece é que ao esconder as 10 linhas com o botão da linha 10, os 3 botões ficam todos sobrepostos na linha 21, logo abaixo do botão da linha 10. A minha pergunta é o seguinte: Alguém sabe uma maneira mais simples de resolver esse meu problema utilizando botões com macro OU sabe como eu fazer os botões serem escondidos junto com as linhas? Por favor, aguardo resposta e já agradeço por qualquer ajuda. Att., JS5 Sub Botão1_Clique() Dim BTN As Button Set BTN = ActiveSheet.Buttons(Application.Caller) Dim i As Integer i = BTN.TopLeftCell.Offset(0, 1).Value If LCase(BTN.Caption) = LCase("Hide Rows") Then BTN.TopLeftCell.Offset(1, 0).Resize(i, 1).EntireRow.Hidden = True BTN.Caption = "Show Rows" Else BTN.TopLeftCell.Offset(1, 0).Resize(i, 1).EntireRow.Hidden = False BTN.Caption = "Hide Rows" End If End Sub