macro color change
 

I have an inspection report that shows my out of tolerance numbers as red. I
can't figure out how to ad to the macro to include arial black font and bold
to the code. I would like this added so when printing in black, the numbers
are easy to spot. Here is part of the macro that needs the addition


Do Until ActiveCell.Value = ""
Do Until TCount = Count
If ActiveCell.Value = 1 Then
ActiveCell.Offset(0, ISOffset).Font.ColorIndex = 1
Else
ActiveCell.Offset(0, ISOffset).Font.ColorIndex = 3
End If
TCount = TCount + 1
ActiveCell.Offset(0, 1).Activate
Loop
ActiveCell.Offset(1, (TCount * -1)).Activate
TCount = 0
Loop