Digamos que tengo el siguiente código:

Sub TestRangeLoop()
    Dim rng As Range
    Set rng = Range("A1:A6")

    ''//Insert code to loop through rng here
End Sub

Quiero poder iterar a través de una colección deRange objetos para cada celda especificada enrng. Conceptualmente, me gustaría hacerlo así:

For Each rngCell As Range in rng
     ''//Do something with rngCell
Next

Sé que podría resolver esto analizandorng.Address y construyendoRange objetos manualmente, pero espero que haya una forma más directa que no implique el análisis de cadenas.