اولین ماکروی این مقاله تمام شکل های موجود در صفحه فعال را حذف می کند.
  
Sub DeleteShapes()
               On Error Resume Next
               ActiveSheet.DrawingObjects.Visible = True
               ActiveSheet.DrawingObjects.Delete
               On Error GoTo 0
               End Sub
 
ماکروی زیر تمام Comment های نوشته شده در صفحه جاری را حذف می کند. 
Sub DeleteComments()
                ActiveSheet.Cells.ClearComments
                End Sub