Problem with positioning a duplicate

[knowbodynow]

Hello,

Is the following code OK? I'm trying to create a duplicate that aligns to another object.

Sub duptoVposition()

Dim s1 As Shape
Dim y1 As Double, y2 As Double
Dim setrevoffset As String

ActiveDocument.Unit = cdrMillimeter

If ActiveDocument Is Nothing Then End
           
If ActiveSelection.Shapes.Count = 2 Then

    y1 = ActiveSelection.Shapes(1).PositionY
    y2 = ActiveSelection.Shapes(2).PositionY

    setrevoffset = y2 - y1

    Set s1 = ActiveSelection.Shapes(1).Duplicate(, setrevoffset)
    s1.CreateSelection

End If

End Sub

CorelDraw is currently duplicating the object way off the page and I don't know why.

Thanks,

Chris (Hunt)