delete all spaces in range
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
|