Troca essa linha

ActiveCell.Offset(0, 2).Range("A1").Value = 1

Por esta

ActiveCell.Value = 1

obrigado pela resposta,
eu troquei a linha
ActiveCell.Offset(0, 2).Range("A1").Value = 1
por
ActiveCell.Value = 1

e continua não funcionando.. dá erro

O ideal seria anexar um modelo reduzido e compactado para uma analise mais precisa, só dizer que "a função não consegue gravar de volta o valor "1"" fica dificil de analisar uma vez que não sabemos a que condição tem de ser atendida, outra situação seria : se não é gravado o numero 1, o que está sendo gravado ? outro numero ou nada ?

Analise tambem que na função temos uma comparação na instrução "If ActiveCell.Offset(0, 2).Value = "1"" com o numero entre aspas e depois quer inserir só o numero sem aspas, isto faz diferença.

Ficaremos no aguardo do modelo, senão vamos ficar com suposições.

[]s

mauro, obrigado pela resposta.. eu vou postar ainda hoje a planilha de exemplo com anexo para você verificar.

com relação a linha
If ActiveCell.Offset(0, 2).Value = "1" Then Exit Function
esta linha está "funcionando" pois quando eu coloco 1 na planilha ele não chama a função de novo,
o problema está só na parte onde eu tento gravar o valor = 1 (pois o padrão é 0 , para dizer que ainda não ativou nenhuma vez o alarme)
quanto tento colocar o valor = 1 , ele não grava isso na planilha o que faz a função ficar em loop sendo ativada varias vezes
ActiveCell.Offset(0, 2).Range("A1").Value = 1 <=== aqui não consigo gravar o valor = 1 na planilha

Baraozemo, bom dia.

Que operação/resultado vc espera que essa linha faça? Pergunto isso pq ela parece não fazer muito sentido - embora seja exequível, principalmente devido àquele "Range("A1")".
Pensemos junto o que ela está executando:
VBA, à partir da célula em que o cursor está (célula ativa, que é uma célula só e não um intervalo), ande duas colunas à direita e coloque o valor 1 na célula da primeira linha e da primeira coluna dessa célula à qual vc foi.
Ou seja, como ActiveCell é uma célula só, deslocar com o método Offset x linhas / y colunas vai retornar também uma (nova) célula só, portanto o Range("A1") de uma célula só é a própria (nova) célula.

Por isso teria que ver exatamente o que vc espera com esse "comando".

Acabei respondendo as pressas e acabei deixando passar batido o seguinte :

Você está utilizando uma Function e não é possível atraves de funções selecionar ou alterar valores em outras celulas, funções são somente para retornar resultados.

Você não conseguirá realizar estas ações com funções, e só não teve mensagem de erro devido ao tratamento do mesmo no inicio - On Error GoTo ErrHandler
ActiveCell.Offset(0, 2).Select
ActiveCell.Offset(0, 2).Range("A1").Value = 1

Como eu disse anteriormente, anexe um modelo para que possamos analisar as possibilidades de estar ajustando a sua necessidade.

[]s

mauro, obrigado..

segue o download da planilha de exemplo.
https://drive.google.com/open?id=0B45Hg ... EhBUE5jalk

Não tenho como baixar arquivos de links externos, anexe seu modelo aqui o forum, veja como fazer :

Como Anexar Aquivos Compactados ?
viewtopic.php?t=3841

[]s

mauro, segue a planilha anexada

alguem poderia ajudar?

baraozemo, tenha em mente sempre que as colaborações nos foruns são voluntárias e dependente principalmente de tempo disponível de cada um, e devido a isto nem sempre as ajudas são imediatas.

Voltando a sua solicitação, como disse que utiliza rotina que atualiza os ranges automaticamente a cada segundo e como não sei a estrutura dela, apesar que acredito que 1 seg é um tempo muito rápido para conseguirmos um loop para todas as alterações, segue um modelo da forma que interpretei, só que utilizei a alteração somente em uma celula para testar, mas a mesma está construida para captar a alteração em qualquer celula que contenha a Function a qual fiz umas alterações.

Baixe o exemplo faça os testes e veja se estamos no caminho certo.