Macro p/formatar celulas depois de verificar conteudo

[abiazon]

Bom dia

Preciso testar o valor de uma célula e baseado neste
valor formatar varias colunas da celula, a macro q eu
criei retorna 0(zero) quando acha a letra Z na coluna
e somente formata 1 coluna... como resolver isso,
ou se ha outra maneira de fazê-lo...
Sub CaminharSobreCelulas(intColuna, intLinha as Integer)
Dim oMovPasta as Object
Dim oCelula as Object
Dim oPasta as Object
Dim oDocumento as Object

oDocumento = ThisComponent
oPasta = oDocumento.Sheets
oMovPasta = oPasta(0)

oCelula = oMovPasta.GetCellByPosition(intColuna, intLinha)
strmsg = oCelula.value
msgbox strmsg

if oCelula.value = "Z" then
oCelula.charcolor = rgb (250,0,0)
oCelula.charfontname = "Arial"
oCelula.CharHeight = 18.00
oCelula.CharWeight = com.sun.star.awt.FontWeight.BOLD
end if
End Sub


Obrigado pela atenção