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