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)