AddSpaceAfterComma
 

I am using Excel 97 and have a column with names Like below:

Lastname,John A

How can I get a space between the comma and firstname?

Lastname, John A

Thanks

AddSpaceAfterComma
 

Sub addspaceaftercomma()
For Each c In Selection
f = InStr(c, ",")
c.Value = Left(c, f) & " " & Right(c, Len(c) - f)
Next c
End Sub


--
Don Guillett
SalesAid Software

"gh" wrote in message
...
I am using Excel 97 and have a column with names Like below:

Lastname,John A

How can I get a space between the comma and firstname?

Lastname, John A

Thanks

AddSpaceAfterComma
 

The easiest way would be to do an Edit | Replace and Replace All "," with ",
" (without the quotes)

If, in some cases you already have a space, you could do another Replace All
and change two spaces to one space

Regards

Trevor


"gh" wrote in message
...
I am using Excel 97 and have a column with names Like below:

Lastname,John A

How can I get a space between the comma and firstname?

Lastname, John A

Thanks