In diesem Beispiel wird der erste Bereich der aktuellen Auswahl gelöscht, falls diese mehrere Bereiche besitzt.
If Selection.Areas.Count <> 1 Then Selection.Areas.Item(1).Clear End If