Option Explicit
Private Const sFIND = "NC"
Private Const sPRINT = "LIBER"

Sub NC_LIBER()
    NC_LIBER_sheetJob ActiveSheet
End Sub

Private Sub NC_LIBER_sheetJob(sh As Worksheet)
    Application.ScreenUpdating = False
    Dim Application_Calculation As XlCalculation: Application_Calculation = Application.Calculation: Application.Calculation = xlCalculationManual
    
    Dim nc As Range, cAfter As Range, firstAddress As String
    Do
        On Error Resume Next
        If cAfter Is Nothing Then
            Set nc = sh.UsedRange.Find(What:=sFIND)
            firstAddress = nc.Address(0, 0, xlA1)
        Else
            Set nc = sh.UsedRange.Find(What:=sFIND, After:=cAfter)
            If firstAddress = nc.Address(0, 0, xlA1) Then Exit Do
        End If
        On Error GoTo 0
        If nc Is Nothing Then Exit Do
        NC_LIBER_cellJob nc.Cells(1, 2)
        
        Set cAfter = nc
        DoEvents
    Loop
    
    Application.Calculation = Application_Calculation
    Application.ScreenUpdating = True
End Sub

Private Sub NC_LIBER_cellJob(li As Range)
    If li.Value <> sPRINT Then
        li.Value = sPRINT
        li.Font.Color = RGB(255, 0, 0)
    End If
End Sub