Sub Oculta2() Dim i As Integer Application.ScreenUpdating = False With Sheets("01") .Cells.EntireRow.Hidden...

leandroxtr como ficaria o código.

Wagner obrigado pelo apoio. Só que não é precisamente isso. Com base na imagem, cada planilha tem um botão menu. Na plan1 até plan observações quando...