is that the same as

[VBA]Sub Convert_to_Values()

Dim rng As Range

For Each rng In Selection
rng = rng.Value
Next rng

Set rng = Nothing
End Sub [/VBA]

If so it just hangs my PC