Get each selected row number in separated variables

[yaninja]

Good morning all,

I wish you could help me on this matter.

I am looking for getting all selected row number in different variables through VBA.

The selected rows may be separated from each other by using #control button#

For example If i select 1:1 - 5:5 -9:9
I want to get the result like
Var(1) = 1
Var(2)= 5
Var(3)= 9

Is there any easy way to code such a macro?

Thank you very much in advance for your help!

Yaninja

 

[VBA Geek]

Sub getRows()
Dim rA As Range, sTmp As String, iX As Long, varRows As Variant
    If TypeOf Selection Is Excel.Range Then
        sTmp = ","
            For Each rA In Selection.Areas
                For iX = rA.Cells(1, 1).Row To rA.Cells(rA.Rows.Count, 1).Row
                    If InStr(1, sTmp, "," & iX & ",") = 0 Then sTmp = sTmp & iX & ","
                Next iX
            Next rA
        [B]varRows = Split(Mid$(Left$(sTmp, Len(sTmp) - 1), 2), ",")[/B]
    End If
End Sub