TRIM a range of cells with evaluate

[rwgrietveld]

Dear all,

Could someone provide me with the EVALUATE equivalent of

for each ccell in MyRng
  ccell.value = TRIM(ccell.value)
Next

It should look something like:

With MyRng
  .Value = Evaluate("TRIM(" & .Address & ")")
End With

but this version take only the first address (cell(1,1)) of myRng