Konverterer en formel til en værdi

Hej Jeg har et regneark hvor jeg godt vil have lavet mine lopslag formeler om til værdier. Jeg har prøvet denne (test1) men den ændre bare så man kan se formelen. det skal være værdien

Sub test1()
Dim c As Range
For Each c In Selection
    c.Value = "'" & c.FormulaLocal
Next
End Sub