Hi Debbie,
REPLACE Worksheet Formula
SUBSTITUTE(text, old_text, new_text, instance_num)
=SUBSTITUTE(A1, ", ", ",")
VBA for a range, several examples
Activesheet.Columns("A").Replace(What, Replacement, LookAt, _
SearchOrder, MatchCase, MatchByte) '--replace method
rng.Replace what:= ", ", replacement:= ",", _
lookat:=xlPart, searchorder:=xlByRows, MatchCase:=False
Intersect(Selection, Selection.SpecialCells(xlConstants, _ xlTextValues)).replace(", ",",")
More information or examples in
http://www.mvps.org/dmcritchie/excel/strings.htm
http://www.mvps.org/dmcritchie/excel/proper.htm
in combination with your Excel HELP and your VBA HELP