Thread: delete all spaces in range
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
J.W. Aldridge J.W. Aldridge is offline
external usenet poster
  
Posts: 425
Default delete all spaces in range

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

Reply With QuoteReply With Quote