Foro de programacion

La función que requiero hacer requiere contar el numero de áreas de una selección

Requiero pasarle a la función un rango definido asi:

=Contar_areas(A1:A3,C3:C5)

Esta funcion solo funciona si el area es una sola, no funciona si son varias areas

Function Contar_areas(Seleccion As Range) As Variant
Dim a As Integer
a = Seleccion.Areas.Count
Contar_areas = a
End Function

Muchas gracias de antemano a quien me pueda ayudar

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