Why can't I get an 6?

[runflacruiser]

Any ideas? This should give an 6 when clicking on a text shape...right?

Private Sub cmdBeginChooseExcludes_Click()

Dim s As Shape
Dim x As Double, y As Double, Shift As Long, b As Boolean

b = False
 While Not b
  b = ActiveDocument.GetUserClick(x, y, Shift, 10, False, cdrCursorEyeDrop)
    If Not b Then
        Set s = ActivePage.SelectShapesAtPoint(x, y, False)
        s.CreateSelection
        MsgBox ActiveSelection.Type
        If s.Shapes.Count > 0 Then MsgBox "more than 1"
    End If
 Wend

End Sub

-John

[runflacruiser]

Hi.
Fixed it by making sure selectionShape(which is returned by selectShapesAtPoint was 1 item and if so then converting to activeShape which can return a type property.

Learning is great!
-John