Jedes Arbeitsblatt unterstützt den Service Searchdescriptor. Mit diesem kann man die 
Zellen 
durchsuchen. Dies muß für jedes Arbeitsblatt erfolgen.
Dann am besten in einer Schleife.
     odoc = thiscomponent
     For iSheets = 0 
To oDoc.sheets.Count -1 
          oSheet 
= oDoc.Sheets( iSheets )
          oSearchDescriptor 
= oSheet.createSearchDescriptor
          oSearchDescriptor.SearchString 
= "XXXX"
          oFound 
= oSheet.FindFirst( oSearchDescriptor )
          Do 
Until isNull(oFound)
               ' 
oFound ist die Zelle auf die die Suche zutrifft
               oFound 
= oSheet.FindNext( oFound, oSearchDescriptor )
          Loop 
     Next iSheets