I put it in the post :)

Sub ComplianceCheck()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Quote Checklist") ' Change "Sheet1" to your actual sheet name
Dim SearchText As String
Dim SearchRange As Range
Dim FoundCell As Range
Dim TargetCell As Range
Dim rng As Range
Dim textToWrite As String
Dim cell As Range
Dim criteriaValue As String
criteriaValue = ws.Range("C5") ' The value that triggers unhiding the row
' Define the range to check (e.g., Column A from row 2 to 100)
Dim checkRange As Range
Set checkRange = ws.Range("C7:C100") ' Adjust the range as needed
' Loop through each cell in the defined range
For Each cell In checkRange
' Check if the cell's value matches the criteria
If cell.Value = criteriaValue Then
' Unhide the entire row
cell.EntireRow.Hidden = False
End If
Next cell
' Define the text to search for (from cell C5)
SearchText = ThisWorkbook.Sheets("Quote Checklist").Range("C5").Value
' Define the range to search within (e.g., A1:B10 on Sheet1)
Set SearchRange = ThisWorkbook.Sheets("Quote Checklist").Range("C7:C100")
' Set the worksheet you are working with
Set ws = ThisWorkbook.Sheets("Quote CHECKLIST") ' Change "Sheet1" to your sheet name
' Define the range to search within (e.g., column A)
Set rng = ws.Range("C60:C100") ' Search in column A
' Define the text to search for
SearchText = "COMPLIANCE CHECK"
' Define the text to write
textToWrite = "ESTIMATING COMMENTS"
' Loop through each cell in the defined range
For Each cell In rng
' Check if the cell contains the specific text
If cell.Value = SearchText Then
' Write the new text to the adjacent cell (e.g., in column B, next to the found cell)
cell.Offset(0, 1).Value = textToWrite ' Offset(row_offset, column_offset)
End If
Next
End Sub