Caso Listbox (Héctor Miguel)

Hola Héctor, el día de ayer tu me ayudaste con la consulta sobre pasar texto
de un listbox a otro, bien, resulta que ahora lo que hice fue crear un botón
que al hacer clic en él me muestra las hojas que están ocultas, es decir;
cada nombre en la lista pertenece al nombre de una hoja del libro de
trabajo, pero no me funciona porque al estar activo el primer listbox, la
propiedad listindex del segundo aparece como -1, entonces no sé cómo hacer,
hice el siguiente código para ello pero no resulta:

sub abrir()

For i = 1 To Me.ListBox2.ListCount

Worksheets(Me.ListBox2.List(Me.ListBox2.ListIndex)).Visible = True

Next

End Sub

Agradezco tu acostumbrada colaboración.