I was able to figure it out. I used the "REPLACE function in excel. example
REPLACE(A2,2,1,"-"). If the cell was 1 1/64 it was replaced with 1-1/64.
Thanks for the help.

"JE McGimpsey" wrote:

Clipart? <g

Char() is an XL function, not VBA

Chr(160) is a non-breaking space. For a regular space character, use
Chr(32)

Perhaps

Selection.Replace _
What:=Chr(32), _
Replacement:="-", _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False

This assumes that the numbers are Text. If the numbers are simply
formatted as 0 ?/? then replacement will not work.



In article ,
"Bob Phillips" wrote:

Selection.Replace What:=Char(160), Replacement:="-", _
Look:=clipart, SearchOrder:=xlByRows, MatchCase:=False