Or ... when using ws functions

  With Range("D3:G300")
    .Value = Evaluate("IF(ROW(" & .Address & "),clean(trim(" & .Address & ")))")
  End With
.
This will give you a much better performance.