Sub qq()
    For Each Shape In ActiveSheet.Shapes
        If Shape.Type = msoGroup Then
            If Not Intersect(Shape.TopLeftCell, Selection) Is Nothing And _
               Not Intersect(Shape.BottomRightCell, Selection) Is Nothing Then
                For Each Shp In Shape.GroupItems
                    If Shp.AutoShapeType = msoShapeRectangle Then
                    If Shp.DrawingObject.Text <> "" Then Shape.DrawingObject.ShapeRange.Line.Visible = msoFalse
                    End If
                Next
            End If
        End If
    Next
End Sub