[Alexej77]

Пишешь на вcтроенном VBA функцию

Код:

Function eval(str As String)
    eval = Application.Evaluate(str)
End Function

Затем можешь ее использовать в этой книге.
В твоем примере так - в ячейке B1 пишешь

Код:

=eval(A1)