if i understand correctly, you gave yourself the answer

For Each c In Range("apples")

--


Gary Keramidas
Excel 2003


"J.W. Aldridge" wrote in message
...

need to change this to fit all cells in named range "apples".

Sub NoSpaces()
Dim c As Range

For Each c In Selection.Cells
c = Replace(c, " ", "")
Next
End Sub