Diese Routine setzt den aktuellen Cursor von allen Sheets auf eine bestimmte Zelle.

sub AllSheetsA1 (myDoc as Object, row as integer,col as integer)

   'Anzahl der Sheets auslesen

   Anzahl=myDoc.Sheets.count

   mySheet = myDoc.Sheets(0)

   'Sichtbaren Cursor holen

   myView = myDoc.CurrentController

   'schleife über die Sheets

   for i=0 to anzahl-1

      mySheet = myDoc.Sheets(i)

      mycell =  mysheet.getCellByPosition(row,col)

      myView.setActiveSheet(mysheet)

      mydoc.CurrentController.Select(mycell)

   next i

   'erstes Sheet aktiveren

   mySheet = myDoc.Sheets(0)

   myView.setActiveSheet(mysheet)

end sub