Macro para que aparezcan hojas de excel ocultas

buenas!!

Necesito una macro para excel, se trata de que tengo 5 hojas que son inguales pero cada una tiene un nombre: hoja 1, hoja2, hoja 3, hoja 4, hoja 5, el contenido de tas hojas es igual para todas.Todas estas hojas estarán ocultas.

En otra hoja tengo (esta no esta oculta) tengo una celda que inserto un numero del 1 al 5. Si pongo uno me debe aparecer la hoja1 oculta, si pulso 2 en la celda deben aparecer la hoja 1 y hoja 2, si pulso 3 hoja1, hoja2, hoja3 y así sucesivamente como tope hasta 5.

Si no pongo nada no aparecen. ¿cómo puedo hacer esto posible con una macro desde visual basic?

Un saludo!!