sub nimedLeheAlgusest
  leht=StarDesktop.CurrentComponent.sheets(0)
  reanr=0
  while len(leht.getCellByPosition(0, reanr).String)>0
    msgbox leht.getCellByPosition(0, reanr).String
    reanr=reanr+1
  wend  
end sub