Private Sub cmdbtnDone_Click() Dim r As Range, r1 As Range
Set r = Range(RefEdit1)
Set r1 = r(1)
Debug.Print r1.Address
Debug.Print ActiveCell.Offset(0, 1).Range(r1.Address).Select
End Sub
The above code finds the first cell of the Range selection from the RefEdit. Then for test...