OOo calc basic: Vai ir kāds vienkāršāks veids, kā panākt for each cell in range?

[Dunks]

Vai OOo calc basic var kā vienkāršāk uzrakstīt for each cell in range par šo?:

oSheet = oDoc.Sheets.getByName ("PPI Accounts")
cellRange = oSheet.getCellRangeByName("C4:D6")
For c& = cellRange.RangeAddress.StartColumn to cellRange.RangeAddress.EndColumn    
    For r& = cellRange.RangeAddress.StartRow to cellRange.RangeAddress.EndRow        
        oSheet.getCellByPosition(c,r).Formula = "=now()"        
    next r
next c