Macro para contar hojas de un libro

Hola, deseo saber si me ayudan con la macro para contar las hojas visibles y que el resultado lo ponga en la celda A1

Gracias de antemano

Saludos Cordiales

1 Respuesta

Respuesta
1

Te anexo la macro

Sub ContarHojasVisibles()
'Por.Dante Amor
    For Each h In Sheets
        If h.Visible Then cuenta = cuenta + 1
    Next
    [A1] = cuenta
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas