Eliminar líneas de código de un macro

[Car88]

Buenos días.
El tema en el que estoy ocupado ahora es para intentar ocultar las hojas, cuyo nombre aparece en una lista.
Les presento el siguiente código, por si se puede hacer de otra manera...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

<i>
</i>Sub ocultarhojas
for each hoja in sheets
   for each celda in range("G171:G182")
      if hoja.name=celda.value then
         hoja.Visible = xlSheetVeryHidden
         exit for...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Car88]

Muchísimas gracias Antonio.
Qué fácil, cuando se sabe!