Public Sub SelectionFormToVal()

Dim tCell as Range

If TypeName(Selection) < "Range" Then Exit Sub

For Each tCell in Selection
tCell.Formula = tCell.Value
Next tCell



"Johnny" wrote in message
oups.com...
I understand how to convert a formula to a value:
Range("A1").Formula = Range("A1").Value

Can somebody help with the syntax to use the selected range instead of
hard-coding a range into the macro?