macro per formattare un foglio xls con openoffice

ciao a tutti chiedo una grossa mano per una macro che sto scrivendo. Vorrei ottenere che le righe e le colonne del foglio xls vengano formattare nella larghezza/altezza giusta. Purtroppo con la stringa che vi riporto sotto mi sistema solo le righe. Cosa sto sbagliando ? Il foglio di xls si chiama riordino cosi come il nome del file.

codice:

---

sub Main
Dim Doc As Object
Dim Sheet As Object
Dim Row As Object
Dim Col As Object
Dim I As Integer
Doc = StarDesktop.CurrentComponent
Sheet = Doc.Sheets(0)
For I = 0 To 4
Row = Sheet.Rows(I)
Row.OptimalHeight = True
Next I

For I = 0 To 60
Col = Sheet.Col(I)
Col.OptimalWidth  = True
Next I


end sub

---

Grazie mille Riccardo :)