Deleting last two characters in a cell

DonkeyOte,

Why doesn't this EVALUATE() construct work?

Sub TruncateSelection()
'Select a range and then run the macro to truncate values without looping
Dim Cell As Range

    With Selection.Cells
        .Value = Evaluate("IF(ROW(1:" & Selection.Cells.Count & "),LEFT(" & .Address & ", 12)")
    End With

End Sub