LibreOffice Calc Macro: Highlight Even Rows

'*************** HighlightEven *******************
'hightlights the even rows in a light gray color
'*************************************************
Sub HighLightEven
    dim Selection as Object
    dim Rows as Object
    dim Row as Object
    dim Cols as Object
    dim Cell as Object
    dim i as Integer
    dim j as Integer

    Selection = ThisComponent.CurrentSelection
    Rows = Selection.Rows
    Cols = Selection.Columns
    for i = 1 to Rows.Count - 1 Step 2
        for j = 0 to Cols.Count - 1
            Cell = Selection.getCellByPosition(j,i)
            Cell.CellBackColor = &HBBBBBB
        Next
    Next
End Sub