how to remove spaces in a cell/column

hi
I want to remove spaces in a middle of a cell/column.

regards

P.M.SANJAY

Do you need something other than the SUBSTITUTE (and/or REPLACE) functions?

--
George Nicholson

Remove 'Junk' from return address.


"P.M.SANJAY" <PMSANJAY@discussions.microsoft.com> wrote in message
news:072F323B-1FF4-4406-8FA9-1AE62C5158FA@microsoft.com...
> hi
> I want to remove spaces in a middle of a cell/column.
>
> regards
>
> P.M.SANJAY

Give us an example of what is in the cell
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email

"P.M.SANJAY" <PMSANJAY@discussions.microsoft.com> wrote in message
news:072F323B-1FF4-4406-8FA9-1AE62C5158FA@microsoft.com...
> hi
> I want to remove spaces in a middle of a cell/column.
>
> regards
>
> P.M.SANJAY

Here is VBA code from David McRitchie that works for me. Copy starting with
Sub,open your spreadsheet, right click on the tab at the bottom, select View
Code, paste the VBA code, and close out of VBA (file, close and return..).
Highlight the columns that need the spaces removed, go to Tools, Macro,
Macros, Run and select the RemoveAllSpaces, and select Run. That should do
it!!

Good luck!
Carole O

Sub RemoveAllSpaces()
'David McRitchie 2000-10-24
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Selection.SpecialCells(xlConstants).Replace What:=Chr(160), _
Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Selection.SpecialCells(xlConstants).Replace What:=Chr(32), _
Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub



"P.M.SANJAY" wrote:

> hi
> I want to remove spaces in a middle of a cell/column.
>
> regards
>
> P.M.SANJAY

Select your Column or Columns:
Go To EDIT - REPLACE - in the FIND - press the space bar 1 time.
Leave the REPLACE blank.