Sub UnselectTextBoxes()
Dim c As New Collection
For Each s In ActiveWindow.Selection.ShapeRange
If s.TextFrame.HasText <> msoTrue Then
c.Add s
End If
Next
ActiveWindow.Selection.Unselect
For Each s In c
s.Select MsoTriState.msoFalse
Next
End Sub