This is one of those things that I\'m sure there\'s a built-in function for (and I may well have been told it in the past), but I\'m scratching my head to remember it.
Dim a As Range, b As Range Set a = Selection For Each b In a.Rows MsgBox b.Address Next