Deleting all Notes and blocks in drawing

Hi all,

I tried to delete all Notes and blocks containing notes, but I can only manage to delete certain annotations. It removes notes bit of the sheet format and balloons.

        swModel.ClearSelection2 True

       

        Set swView = swDraw.GetFirstView

        While Not swView Is Nothing

            Set swAnn = swView.GetFirstAnnotation3

            While Not swAnn Is Nothing

                If swNote = swAnn.GetType Then

                        bRet = swAnn.Select3(True, swSelData)

                  

                End If

                               

                Set swAnn = swAnn.GetNext3

            Wend

           

            Set swView = swView.GetNextView

        Wend

       

        bRet = swModelDocExt.DeleteSelection2(swDelete_Absorbed)

SolidworksApi macros