LISTBOX LISTA ABAS E IGNORA OCULTAS

PABLOMOREIRAGV 24/02/2015 16:35:36
#444754
Olá pessoal,

Estou postando um modelo de planilha que tem um Listbox que lista todas as abas existentes em uma planilha. Porém, ela lista também as abas que estão ocultas na workbook e eu queria que a lista ignorasse a ocultas e mostrasse somente as visíveis.
Alguém pode me ajudar? Desde já agradeço.

OBS: Como teste a aba Plan4 está oculta, notem que ela também é lista no listbox.

Obrigado.
FILMAN 24/02/2015 20:30:48
#444762 Resposta escolhida
No Initialize coloque um IF dentro do FOR

        If Sheets(intPlanilha).Visible = -1 Then
            lstPlanilhas.AddItem Sheets(intPlanilha).Name
        End If
PABLOMOREIRAGV 25/02/2015 07:23:13
#444766
Muito obrigado FILMAN, resolveu o meu problema aqui.

Valeu, abs...
Tópico encerrado , respostas não são mais permitidas
Voltar