Your newsreader (mine too) broke the long line in an odd place. I have
restructured Jarek's code so that won't happen. Copy/paste this version into
your code window (or use the subroutine I posted) instead...

Sub transl()
For Each cell In Selection
cell.Copy
cell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next cell
End Sub

Rick


"FF" wrote in message
...
Thanks, try to copy & past routine below into VB, but got an error msg
(sytnatx error) in correspondace to:
SkipBlanks _
:=False, Transpose:=False

Pls note that I've NO experience at all in VB macros, so -- myabe -- I'll
have to replace something in the VB routine you provide me with.
Thanks again for any hints

"Jarek Kujawa" wrote:

no function can do that
functions cann only change cells' values
you would need a macro to do that

Sub transl()
For Each cell in Selection
cell.Copy
cell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Next cell
End Sub