try this then:

Sub NoSpaces()
Dim c As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each c In Range("apples")

c = Replace(c, " ", "")
Next

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub


--


Gary Keramidas
Excel 2003


"J.W. Aldridge" wrote in message
...
is there a quicker way to execute this?

it's taking almost 5-10 minutes as is.

thanx