Excel VisualBasic Script

Public Sub ColorCells()
  Dim Sales As Range
  Dim i As Long
  Dim j As Long
  
  Set Sales = Range("SalesData")
  For i = 1 To Sales.Rows.Count
    For j = 1 To Sales.Columns.Count
      If Sales.Cells(i, j).Value < 100 Then
        Sales.Cells(i, j).Font.ColorIndex = 3
      Else
        Sales.Cells(i, j).Font.ColorIndex = 1
      End If
    Next j
  Next i
End Sub