Foro de programacion

Hola a todos los del foro

Tengo el siguiente problema

Requiero recorrer todas las celdas de un rango discontinuo de la forma A1:A3,C3:C5


El código siguiente ilustra mi problema
Este código recorre todas las celdas de un rango, (concatena los contenidos de las celdas a manera de ejemplo), pero solo me funciona si este rango es continuo

__________________________________________________ _
Function Recorrer(Seleccion As Range) As Variant

Dim Celda As Range
For Each Celda In Seleccion
Recorrer = Recorrer & " " & Celda.Value
Next
End Function
__________________________________________________ ____


Intente el siguiente código:

Function Recorrer2(Seleccion As Range) As Variant

Dim a As Integer
a = Seleccion.Areas.Count
Dim Celda As Range
Dim Area_Simple As Range
For Each Area_Simple In Seleccion.Areas
For Each Celda In Area_Simple
Recorrer2 = Recorrer2 & " " & Celda.Value
Next
Next
End Function


Este código solo funciona si la seleccion que le doy es continua, es decir que esta compuesta por una sola area, en la instrucción

a = Seleccion.Areas.Count

solo funciona si a=1

en cualquier otro caso ñla funcion ni siquiera entra, sospecho que estoy definiendo mal el parametro que le paso a la función "(Seleccion As Range)


Muchas gracias a quien pueda ayudarme

MACRO RECORRER CELDAS

Ya respondi en el otro foro pero lo hago en este para mantener el hilo del tema

Gracias a todos los del foro y en especial a avalencia

Esta es la fracción del código que recorre todas las celdas de un rango discontinuo

Esta es un ejemplo de macro aparentemente muy obvia, la macro recorre todas las celdas de una selección que puede contener uno o varios rangos discontinuos, para el ejemplo la macro concatena el contenido de las celdas.

En la celda le doy
=Recorrer_Celdas(A1:A3,A5,C3:C4)
Para los datos que le di me debuelve "A B C E x y"

Function Recorrer_Celdas(ParamArray Seleccion()) As String
Application.Volatile True
Dim MiCadena As String
Dim AreaSimple As Variant
Dim Celda As Variant
MiCadena = ""
For Each AreaSimple In Seleccion
For Each Celda In AreaSimple
MiCadena = MiCadena & Celda & " "
Next
Next
Recorrer_Celdas = MiCadena
End Function