The below works on the activesheet ..Try and feedback..

Sub Macro1()
Dim varData As Variant
If WorksheetFunction.CountIf(Range("A39:A79"), "*Not Locked*") 0 Then
varData = Range("B39:I79")
Range("B39:I79").Value = varData
End If
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"usmc-r70" wrote:

I need a macro button that will, on selection, evaluate if a cell from
A39:A79 contains the text "Not Locked" and then will change all the
corresponding formulas in those rows for columns B:I (B39:I79) into text
(i.e. Their formula values: Copy Paste Special Paste Values).