Evaluate() For Loop Less Range Calculations

I'm trying to get my head around using this syntax for EVALUATE() to allow an entire range of values to be changed all at once instead of via loop.

This macro works:


Sub TruncateValuesInSelection()
'JBeaucaire 2/23/2010
'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 & "),TRUNC(" & .Address & ",2))")
End With.........