I use this code to bold+red things in a column that need to be flagged (cells with values greater than zero) -
- however, now I need to have the code simply locate anything that is > than 0 and TURN IT TO "0" while also making THAT item red+bold.
Does anyone know an easy way to update this code to turn those items to zero?
I don't want the code to simply zero out the whole column because the analyst needs to know exactly which ones under went the change.
By only turning these items to zero and red and bold, it will be visible to the analyst.
- however, now I need to have the code simply locate anything that is > than 0 and TURN IT TO "0" while also making THAT item red+bold.
Does anyone know an easy way to update this code to turn those items to zero?
I don't want the code to simply zero out the whole column because the analyst needs to know exactly which ones under went the change.
By only turning these items to zero and red and bold, it will be visible to the analyst.
Code:
'Sub ZeroOutAndRedBold()
Range("f5").Select
Do Until ActiveCell.Value = ""
If Selection.Interior.Color = 16764057 And ActiveCell.Value > 0 Then
Selection.Font.Bold = True
With Selection.Font
.Color = -16776961
.TintAndShade = 0
End With
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub
