If Selection.Range.InlineShapes.Count > 0 Then If Not Selection.Range.InlineShapes(1).Type = 5 Then RSel = Selection.Range Else Set RSel = Selection.Range End If