Odwołanie do komórek

Witam oto prosty kod do odwołania komórek w OpenOffice Calc

sub test1()
Dim Doc As Object 'deklaracja
Dim Sheet As Object 'deklaracja
Dim Cell As Object  'deklaracja
Dim Cell1 As Object  'deklaracja
dim i
Doc = ThisComponent
Sheet = Doc.Sheets(0) 'odwolanie do pierwszego arkusza, gdy damy 1 to do drugiego i tak dalej
i = 0