excel vba : selected cells loop

Question

Would like to iterate each row in a selection in excel VBA.

I have:

Dim rng As Range
Dim s As String
Set rng = Application.Selection
Debug.Print "c :" & rng.Address

This prints

c :$B$22:$C$29

How to make a loop from row 22 to 29/ parse out the start and end row?

And in separate int variables get the start and end column?

Answer 1

A general solution to looping through a range of cells in Excel:

Sub LoopSelection()

    Dim cel As Range
    Dim selectedRange As Range

    Set selectedRange = Application.Selection

    For Each cel In selectedRange.Cells
        Debug.Print cel.Address, cel.Value
    Next cel

End Sub

Iterates from top-left most cell, across then down.