Este fórum está sendo desativado

[wesleyribeiro123]

Pessoal
Bom dia,

Estou com seguinte problema, criei uma macro que relaciona todas as guias (Abas) do Excel numa ListBox (com propriedade de multiplas seleções). A ideia é que o usuário possa selecionar as guias que ele deseja exibir e/ou ocultar e de OK fazendo com que as guias selecionadas de fato se ocultem ou reexibam.

O meu problema está em como fazer com que o VBA identifique a Sheet selecionada no ListBox. Estou utilizando o seguinte código:

Código: Selecionar todos

Dim x As Integer

For x = 0 To OcultaReexibe.ListBox1.ListCount - 1
    If OcultaReexibe.ListBox1.List.Selected(x) Then
       If Sheets(x).Visible = True Then
          Sheets(x).Visible = False
       Else: Sheets(x).Visible = True
       End If
    End If
Next

Este código retorna um erro informando que o objeto é obrigatório...
Se puderem me ajudar!!! Obrigado

[wesleyribeiro123]

Galera

Estudando aqui meu código acabei conseguindo resolver o problema

Código: Selecionar todos

For x = 0 To OcultaReexibe.ListBox1.ListCount
On Error Resume Next
    If OcultaReexibe.ListBox1.Selected(x) Then
       If Sheets(x + 1).Visible = True Then
          Sheets(x + 1).Visible = False
       Else: Sheets(x + 1).Visible = True
       End If
    End If
Next

De qualquer forma, obrigado pelo espaço, rsrs