Ofimática - Ocultar y mostrar Hojas

TENGO ALREDEDOR DE 60 HOJAS, PERO LAS DESEO TRABAJAR POR GRUPO
QUIERO CREAR UNA MACRO PARA QUE SOLO MUESTRE UN GRUPO DESEADO
LO QUE HE HECHO ES OCULTAR TODAS LAS HOJAS CON :

Sub OCULTAR()
For Each WS In Worksheets
WS.Visible = xlSheetVeryHidden
Next WS
End Sub

Y PARA MOSTRARLAS

Sub MOSTRAR() ...............................(*)
For Each WS In Worksheets
WS.Visible = True
Next WS
End Sub

PERO COMO YO DESEO QUE SE MUESTREN SOLO, POR EJEMPLO ESTE GRUPO
HICE LO SIGUIENTE

PARA OCULTAR EL GRUPO
Sub GRUPO_01_H()
Sheets(Array( _
"SAN FRANCISCO", _
"LIMA", _
"TINGO MARIA", _
"TARAPOTO", _
"JUANJUI" _
)).Select
ActiveWindow.SelectedSheets.Visible = FALSE
End Sub

Sub GRUPO_01_S() .....................(***)
Sheets(Array( _
"SAN FRANCISCO", _
"LIMA", _
"TINGO MARIA", _
"TARAPOTO", _
"JUANJUI" _
)).Select
ActiveWindow.SelectedSheets.Visible = TRUE
End Sub

PERO SOLO LO PUEDO OCULTAR Y CUANDO QUIERO MOSTRARLO ME DA ERROR

COMO HAGO PARA PASAR MI SELECCION (GRUPO)
HOJA POR HOJA (***) A (*) CREO QUE ASI SE PODRIA MOSTRAR

De antemano muchas gracias..