Slow Function

[WhytheQ]

I've tried the below function over a range of 6000 cells.

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

.....it's very slow.
What is wrong with my code ?

Any help greatly appreciated
J

 

[Guest]

This should help considerably, it turns off all processing, does the work,
and then calculates once instead of thousands of times.

Private Function TrimAll(myTrimArea As Range)
Dim cell
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For Each cell In myTrimArea.Cells
cell.Value = Trim(cell.Value)
Next cell
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Function