Como substituir a fórmula da célula por seu próprio valor via UDF?

Descrição do Problema

Eu tenho uma fórmula personalizada que escrevi, mas demora um pouco para calcular a resposta e, como o Excel atualiza os valores das funções (quando você ativa a pasta de trabalho ou reabre a pasta de trabalho etc.), não posso tê-la. -executando a função.

Tentei chamar um processo Sub para copiar a célula e colar valores ( Substitua uma fórmula pelo resultado ), mas ela retorna =#VALUE!. Provavelmente algo a ver com referências circulares ...

Pergunta, questão

Existe uma maneira de substituir a fórmula em uma célula com seu valor de dentro de uma fórmula definida pelo usuário?

Não há como sobrescrever qualquer célula dentro de uma UDF, ela pode retornar apenas um valor.

Você pode usar a função Worksheet_Change para contornar isso ...

Na folha:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A1"), Target) Is Nothing Then
    'do nothing - not worried about anything not in A1
Else
    Range("A1").Value = Range("A1").Value
End If
End Sub

Qualquer que seja a fórmula digitada em A1, na planilha em que você inseriu esse código, será convertida no valor e a fórmula removida.

1. Selecionar célula
2. Clique com o botão direito do mouse> Copiar (ou [CTRL] + [c])
3. Clique com o botão direito do mouse> Colar Especial> Colar Valores

Isso deve substituir a fórmula pelo número / valor resultante.