Vejo esse problema de uma forma bem ingênua:

Na célula G1 colocar a fórmula:

=C1

klarc28,

Bom dia!

Obrigado pela resposta. Todavia, a necessidade é que o resultado calculado pela função, vá para outra célula, dentro da própria função UDF e no mesmo momento da sua execução.

Cara tentei alguma forma de incluir uma sub dentro de uma function mas sem sucesso..
A única forma que encontrei foi incluindo esse código na sua Plan1:

Option Compare Text
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim coluna, coluna2 As Long
Dim valor1, valor2 As String
Dim cont1 As Long
'Coluna da fórmula principal
coluna = 3 '$C
'Coluna da fórmula auxiliar
coluna2 = 7 '$G
cont1 = Len(Target.Address(False, False))
valor1 = Mid(Target.Formula, Application.WorksheetFunction.Find(",", Target.Formula) - cont1, cont1)
valor2 = Mid(Target.Formula, Application.WorksheetFunction.Find(",", Target.Formula) + 1, cont1)
If Target.Column = coluna And Target.Formula = "=SomarEsp(" & valor1 & "," & valor2 & ")" Then
Cells(Target.Row, coluna2).Value = Target.Formula
End If
End Sub

Porém não sei se vai te atender. Abrç!

xlarruda,

Boa tarde!

Muito obrigado pela resposta. Vou deixar aberto por mais alguns dias pois a solução não atende a necessidade.

Grande Wagner! Boa tarde.

Pelo visto esse problema é semelhante ao que o colega XLArruda passou quando quis tentar abrir um arquivo dentro de uma UDF (tópico Dúvida com ProcV) o que não é possivel.

UDF's são próprias para lerem coisas mas têm muitas limitações quando se espera que elas façam coisas. Então provavelmente terás se explorar outro caminho (Worksheet_Calculate, por exemplo).

EdsonBR,

Obrigado pela resposta. Acho que você está certíssimo amigo. Creio que isso mesmo.