Try:

Sub gsnu()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If r.HasFormula Then
r.Value = r.Value
End If
Next
End Sub

--
Gary's Student


"Marcus A" wrote:

I wanted to know if there was a macro that would replace all formulas in a
worksheet with their respective value only.

Thanks.