thks Rick, yours is simpler and quicker

;-)))

i've simplified mine too:

Sub transl()
For Each cell in Selection
cell.Copy
cell.PasteSpecial Paste:=xlPasteValues
Next cell
End Sub