Loops selection to set negative values on red cells

loopselection.vbs

Sub LoopSelection
	Dim RGBarray(1 to 3)
    Set oRange = ThisComponent.CurrentSelection
    For i = 0 To oRange.Rows.getCount() - 1             
        For j = 0 To oRange.Columns.getCount() - 1
            Set oCell = oRange.getCellByPosition( j, i )
            CBkC = oCell.CharColor
            RGBarray(1) = Red(CBkC) : RGBarray(2) = Green(CBkC) : RGBarray(3) = Blue(CBkC)
            If RGBarray(1) = 255 then
            	if oCell.value > 0 then
                	dim old
                	old = oCell.value 
                	oCell.value = old * -1
                ENDIF
            endif
        Next
    Next 
end Sub