Using Evaluate to sum the formulas written on a cell

If you have formulas written on a cell like 1+2+3+4+5+6 , or a1+a4 ,etc. Snapshot below-

Here is the user defined function

Function run_formula(x As String)
run_formula = Application.Evaluate("=" & x)
End Function


Download Macro