Sub highlightNegativeNumbers() Dim Rng As Range For Each Rng In Selection If WorksheetFunction.IsNumber(Rng) Then If Rng.Value < 0 Then Rng.Font.Color= -16776961 End If End If Next End Sub
Highlight Negative Numbers: Select a range of cells and run this code. It will check each cell from the range and highlight all cells the where you have a negative number.