Если курсор в фигурах перемещается в обратную сторону - по кнопке вправо - влево и наоборот, то помогает выполнение следующего скрипта:

Sub Cursor()
On Error Resume Next
Dim Counter
For Counter = 1 To Application.ActiveWindow.Page.Shapes.Count
Application.ActiveWindow.Page.Shapes.Item(Counter).OpenSheetWindow
Application.ActiveWindow.Shape.CellsSRC(visSectionParagraph, 0, visFlags).FormulaU = 0
Application.ActiveWindow.Close
Next Counter
MsgBox «Done»
End Sub