Contar hojas en VBA puede sernos útil en un momento dado. Para ello, no tenemos más que guardar en una variable el resultado y arrojarlo de la manera en que nos sea más útil.

Sintaxis contar hojas en VBA

Como ya hemos explicado anteriormente, una hoja es un elemento de la jerarquía de Excel y como tal, puede haber varias hojas en un mismo libro. Para contar elementos en Excel se usa el método count este método nos permite contar hojas, gráficos, etc…

El código para contar las hojas de un libro será:

MiVariable=Sheets.Count

donde MiVariable es la variable donde se almacenará el número entero de hojas que hay en el libro.

Si queremos conocer en qué posición se encuentra una determinada hoja escribiremos:

MiVariable=Sheets("Nombre hoja buscada").Index

Y tendremos en la variable MiVariable la posición (en número entero) de la hoja que hemos señalado.

Ejemplo contar hojas en VBA

En el siguiente ejemplo vamos a ver una utilidad de contar hojas en VBA. Consiste en recorrer todas las hojas de un libro para poner el zoom de cada hoja al 75% y que la celda activa que encontremos al abrir nuestro libro sea siempre A1.

Sub Homogeneizar_hojas()

    For i = 1 To Sheets.Count
        Sheets(i).Activate
        ActiveWindow.Zoom = 75
        Range("A1").Activate
    Next
    
    Sheets(1).Activate

End Sub