Kind of a begginner with Macros. Hope someone can help. I am using Conditional Formating to highlight a group of cells with a given value. These values autoupdate from data data on other worksheets. I have 10 values I am trying to color code but conditional formating only allows 3 conditions. I tried to manually do this with VB script (Stare and Compare...a begginers best friend) but the macro errors out after the 3rd condition. Any ideas:
Sub Color()
'
' Color Macro
' Macro recorded 3/27/02 by
'
'
Range("A1:P34").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$B$39"
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$B$40"
Selection.FormatConditions(2).Interior.ColorIndex = 38
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$B$41"
Selection.FormatConditions(3).Interior.ColorIndex = 8
End Sub
Sub Color()
'
' Color Macro
' Macro recorded 3/27/02 by
'
'
Range("A1:P34").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$B$39"
Selection.FormatConditions(1).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$B$40"
Selection.FormatConditions(2).Interior.ColorIndex = 38
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=$B$41"
Selection.FormatConditions(3).Interior.ColorIndex = 8
End Sub