MACRO CONTAR AREAS

Gracias a avalencia de otro foro solucione mi problema, ya respondi en el oto foro, lo mhago en este para mantener el hilo del tema

En la celda le doy
=Contar_areas(A1:A3,A5,C3:C5) y me devuelve correctamente 3

Function Contar_areas(ParamArray Seleccion()) As Long
Dim y As Integer
Dim AreaSimple As Variant
Application.Volatile True
y = 0
For Each AreaSimple In Seleccion
y = y + 1
Next
Contar_areas = y
End Function