Hi,
A value in a cell is "3,500". I convert all to text format and then remove the quotes. Removing the quotes causes the last zero to disappear, so the cell now contains: 3,50
Worksheets(gs_sheet).Range(sRange).NumberFormat = "@" 'text
Worksheets(gs_sheet).Range(sRange).Replace What:=""""...