Dim x As Double, y As Double, Shift As Long, b As Boolean, doc As Document Dim sel1 As Shape, sel2 As Shape, s1 As Shape, s2 As Shape Set doc = ActiveDocument b = False While Not b b = doc.GetUserClick(x, y, Shift, 10, False, cdrCursorWinCross) Set s