Sub tt()
     For i = 1 To Selection.Count
         If Selection(i).Font.ColorIndex = 3 Then Selection(i) = Selection(i).Value
     Next i
End Sub

Sub convertAllFormulaToValue()
       Dim wks  As Worksheet
       Dim cell As Range
       On Error Resume Next 'на случай, если на каких-то листах формул не будет
       For Each wks In ThisWorkbook.Worksheets
           For Each cell In wks.Cells.SpecialCells(xlCellTypeFormulas)
               If cell.Font.ColorIndex = 3 Then cell.Value = cell.Value
           Next cell
       Next wks
End Sub

Sub convertAllFormulaToValue2()
      Dim wks     As Worksheet
      Dim rng     As Range
      Dim rng1    As Range
      Dim rng2    As Range
      Dim cell    As Range

      For Each wks In ThisWorkbook.Worksheets
          On Error Resume Next
              Set rng1 = wks.Cells.SpecialCells(xlCellTypeFormulas)
              Set rng2 = wks.Range("Область_печати")
          On Error GoTo 0
            
          If Not rng1 Is Nothing And Not rng2 Is Nothing Then
              Set rng = Union(rng1, rng2)
          ElseIf Not rng1 Is Nothing Then
              Set rng = rng1
          ElseIf Not rng2 Is Nothing Then
              Set rng = rng2
          Else
              Set rng = Nothing
          End If
            
          If Not rng Is Nothing Then
              For Each cell In rng
                  If cell.Font.ColorIndex = 3 Then cell.Value = cell.Value
              Next cell
          End If
      Next wks
End Sub

    'If cell.Font.ColorIndex = 3 Then cell.Value = cell.Value

     If cell.FormulaR1C1 = "=R[-1]C" Then cell.Value = cell.Value