I have a named 5x5 range called Costs in a VBA macro. I'd like
to fill the cells with a different color depending on their value.

For example

Sub Macro1()'
Dim Costs As Variant
Costs = Range("G2:K6").Select
If Range.["Costs"] Then
Select Case Range("Costs").Value
Case Is <= 5: Target.Interior.Color = eColors.green
Case Is <= 10: Target.Interior.Color = eColors.orange
Case Is <= 15: Target.Interior.Color = eColors.yellow
Case Else: Target.Interior.Color = eColors.red
End Select
End If
End Sub

Right now its not compiling any ideas?
--
mark