Select the cells you want to change and run:

Sub noround()
For Each r In Selection
s = Split(r.Formula, "(")
t = Split(s(2), ")")
r.Formula = "=" & t(0)
Next
End Sub
--
Gary''s Student - gsnu200753


"neska" wrote:

Hi,

I have the following problem. I have prepared, where I have been using the
function ROUND in many cells. Now I have to remove this function but I don't
see an easy way for doing it.

Now I have: =RUNDEN(('Daten'!F9);1)

And I would like having: 'Daten'!F9

Can anybody help me? I see no other option than removing this funtion
manually...

Best regards,

núria.