Macro for Hardcoding row values if a cell contains certain text

[Excelladder]

Hello All----I have racked my brain on this and need to see if anyone can help me with some VBA code:


I have a spreadsheet with data in columns A thru P.

If column P has the text "PY" in any row, I need the formulas removed from the cells in that row and keep the values.

Is there a VBA code for this that I can run as a Macro?

 

[sheetspread]

Sub formulatovalue()
Dim c As Range
For Each c In Columns(16).SpecialCells(xlConstants)
If c.Value = "PY" Then
c.EntireRow.Value = c.EntireRow.Value
End If
Next c
End Sub

 

[Excelladder]

Thanks Sheetspread!