Hi Randy,

Try something like:

Sub Tester()
Dim rng As Range

Set rng = ActiveSheet.Range("A20:K20") '<<====== CHANGE
With Selection
.Value = .Value
End With

End Sub

---
Regards,
Norman



"RAP" wrote in message
...
I need help in writing a macro that will take a certain row of formula
results and replace them with the results only, eliminating the formula.
Stated differently, I need to automate the manual instructions of
selecting
the row of formula results, copying them, then pasting values only back
into
the original cells.

Any help would be greatly appreciated. I am fairly new to macros and this
is proving to be a little more than I can handle at the moment. Thank
you.
Randy