Macro to find the Negative and Positive values


Highlight the Negative values in a selection


Sub NegativeValues()
For Each Cell In Selection
If Cell.Value < 0 Then
Cell.Interior.ColorIndex = 8
End If
Next
End Sub

Highlight the Positive values in a selection


Sub PositiveValues()
For Each Cell In Selection
If Cell.Value > 0 Then
Cell.Interior.ColorIndex = 12
End If
Next
End Sub

How to use codes shared here?