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?