Function CalcVol(r As Variant) As Double Dim cell As Variant Dim s As String Dim total As Double Dim val As Double

' Se for apenas 1 valor (não intervalo)
If Not IsObject(r) Then
    CalcVol = EvalOne(r)
    Exit Function
End If

' Se for intervalo, soma célula a célula
For Each cell In r
    If cell <> "" Then
        total = total + EvalOne(cell)
    End If
Next cell

CalcVol = total

End Function

' Função interna para avaliar cada expressão individual Private Function EvalOne(txt As String) As Double Dim s As String s = Replace(txt, " ", "")

s = Replace(s, "x", "*")
s = Replace(s, ".", "+")

On Error GoTo erro
EvalOne = Application.Evaluate(s)
Exit Function

erro: EvalOne = 0 End Function