Ajuda em Macro CALC

ronilson
(usa Fedora)

Enviado em 25/11/2010 - 14:13h

Olá VOL!
Pessoal, estou precisando criar uma macro no CALC para verificar se a data inserida é maior que 4 anos e se for ela tem que pintar a célula de vermelho. No momento fiz o código abaixo.
'###########################
Function VerData ( sDate )
sData = Date(Now)
sResto = sData - sDate
If sResto < 1460 Then
VerData = "Aguardando decurso do processo."
Else
Select Case sDate
Case 0
VerData = ""
Case Else
VerData = "Atenção!"
End Select
End if
End Function
'###########################

Mas o problema é que assim tenho que inserir isso célula a célula e usar formatação condicional para tingir de vermelho a célular caso o resultado seja "Atenção!".

Como posso fazer que esse código corra a planilha nas colunas "A","B","C" e "D" verificando se a data resulta em um valor maior que 1460, se for maior, escreva a palavra "Atenção!" na coluna "C" e tinja as linhas de "A" a "D" de vermelho?.
Não sei nada de macro para OOffice e esse código que fiz foi consultando dicas no "programando para openoffice".