Macro para contar filas visibles

Podrían ayudarme con esto

Necesito una macro que me cuente filas visibles

Encontré esta pero no me da resultado

Sub filasvisible()
Dim celda As Range, Total
Total = 0
For Each celda In Selection
If Worksheets(Application.ActiveSheet.Name). _
Rows(celda.Row).Hidden = False Then _
Total = Total + celda
Next
Range("a152").Value = Total
End Sub

Gracias

Esta macro debe funcionar para la hoja activa, quiere decir que si estoy en la hoja1 debe funcionar ahí, o la hoja3, etc.