Sub test()

Dim rng As Range
Set rng = Selection

Dim spt As Integer
Dim ept As Integer


spt = rng.Cells(1, 1).Row
ept = spt + rng.Rows.Count - 1

MsgBox "Starts: " & spt
MsgBox "End: " & ept

End Sub

"Heera" wrote:

Hi All,

I have a problem and here it is.

For example I have selected a range i.e A10:A19 in excel.

I want A10 as my start point and A19 as my end point in excel
basically I want the start row number and the end row number so that I
can write a procedure in VBA as mentioned below.

Dim Spoint as integer
Dim Epoint as integer

Spoint = 10
Epoint = 19

I tried working around with the below mentioned code but I am not able
come at a solution.

ActiveWindow.RangeSelection.Address(False, False)

Regards
Heera