Seleccinar varia hojas a partir array definida previamente

[kalikenyo]

Hola a todos,

actualmente tengo una pequeña macro que oculta o me muestra hojas en fuunción de un valor, pero debido a que cada vez hay mas hojas la macro tarda bastante tiempo. Por lo que me gustaria intentar accelerar la ejecución. Actualmente uso un For para recorrer todas las hojas que hay que modificar (anexo codigo fuente) y creo que si pudiese seleccionar todas las hojas de golpe en lugar de ir una a una reduciria el tiempo de ejecucion de la macro bastante.

Dim DEPTO(42) As Variant

DEPTO(0) = "G. VARIABLES"

DEPTO(1) = "G. VENTA"

DEPTO(2) = "G. PRODUCTO"

DEPTO(3) = "G. PERSONAL"

...

DEPTO(42) = "G. INMUEBLES"

'MOSTRAR LA COLUMNA DEL MES EN LAS PESTAÑAS A REPORTAR

X = 0

For X = LBound(DEPTO) To UBound(DEPTO)

Sheets(DEPTO(X)).Select

Sheets(DEPTO(X)).Columns("D:O").Select

Selection.EntireColumn.Hidden = False

Sheets(DEPTO(X)).Range("E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O").Select

Selection.EntireColumn.Hidden = True

Next X

La idea seria hacer algo como:

Sheets(DEPTO()).Select

Sheets(DEPTO()).Columns("D:O").Select

Selection.EntireColumn.Hidden = False

Sheets(DEPTO()).Range("E:E,F:F,G:G,H:H,I:I,J:J,K:K,L:L,M:M,N:N,O:O").Select

Selection.EntireColumn.Hidden = True

Pero no consigo hacer que funcione...

Gracias de antemano