Dim cell as Range
for each cell in selection
if not cell.HasFormula then
cell.formula = cell.Value
end if
Next

--
Regards,
Tom Ogilvy

"ªü¤T" wrote in message
...
all asterisk which has placed unevenly in the same column of cells by
formulas?

e.g. [ '12345678 ] change to [ 12345678 ]