Whether is sub or function, this should help

'======================================
Private Function TrimAll(myTrimArea As Range)
Dim cell
application.screenupdating = false
For Each cell In myTrimArea.Cells
cell.Value = Trim(cell.Value)
Next cell
application.screenupdating = true
End Function

hth

Keith