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.

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