you need a closing ")" on the "=value(" statement
so something like

Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE("
& ActiveCell.Formula & ")")

should do it.n Post back if that does not work.

Please rate this post if it's helpful to you.


--
www.alignment-systems.com


"Jim May" wrote:

I need to Wrap an existing formularized Cell with the Function =VALUE()
using a VBA Statement. The below is not quite working . Can someone assist
me in getting the proper syntax to get it going???

Tks in Advance..
Jim May


Sub Macro5()
'
' Macro5 Macro
' Macro recorded 6/29/2006 by Jim May
'Step 1:
ActiveCell.Formula =
Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "=", "$")
'Step 2:
ActiveCell.Formula =
Application.WorksheetFunction.Substitute(ActiveCel l.Formula, "$", "=VALUE(""
&")

End Sub