Excel Formatting Question

Test this in a separate workbook first. Not sure how you want to select the greens. In case you want to choose different colors you can switch the code to .color = rgb(x, y, z)

Here's my fav link to color codes. http://dmcritchie.mvps.org/excel/colors.htm

Sub FontColor() ' ' For each worksheet in active workbook ' Select cells containing formulas, then constants ' Color these cells Black and Blue, respectively '

Dim ws As Worksheet Application.ScreenUpdating = False On Error Resume Next For Each ws In ActiveWorkbook.Worksheets ws.Activate Cells.SpecialCells(xlCellTypeFormulas, 23).Select With Selection.Font .ColorIndex = 1 End With Cells.SpecialCells(xlCellTypeConstants, 23).Select With Selection.Font .ColorIndex = 5 End With Next ws Application.ScreenUpdating = True

End Sub