If DGV1.SelectedRows.Count > 0 Then
ENDROW = DGV1.SelectedRows(0).Index
STARTROW = DGV1.SelectedRows(DGV1.SelectedRows.Count - 1).Index
Dim TEMPROW As Integer
If ENDROW < STARTROW Then
TEMPROW = ENDROW
ENDROW = STARTROW
STARTROW = TEMPROW
End If
End If
i added the above as selection may be upward or downward....appreciate your help Mr.Meswania