Coloring the cell's in workbook using Macros

Question

Hello Guru's,
Here I got issue,
We have Report executed in the Excel, and after that we have to make another sheet(workbook) to calculater all the Before year values , Actual Year values and then the Planned values. We did calculater the varience and Percentage of the varience. All this is ok. i was pretty much able to manage.
But here the question i am putting in front of you guyus is , we have to cloror the cells of the Percentage column base on the threshold or bias like if
cell values is >= 0 it should be red
cell value is  < 0 it should be Green
cell value is < -0.5 it should be yellow.
i have been looking around in the forums all day, and i am very new to Macros.
I did go through Peter Knoer forums.
Hope i get a good reply from you guys,
Thank& Regards,
Kiran

Answer 1

Thank you Dash,
you gave me a good idea for me, But here i got one problem,
i got the code , but i want to do it for 4 colums, for all the 4 colums i am reprting the code , i want to avoid the repetion of the same code, how would i do that.
i am giving the code for 2 colums below.
can me plz help on this.
Sub Sheet1()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim l As Integer
    For i = 10 To 39
        For j = 2 To 2
            If Cells(i, j) >= 0 Then
                With Cells(i, j).Interior
                .ColorIndex = 0
                .Pattern = xlSolid
                End With
                Else
             If Cells(i, j) < 0 And Cells(i, j) >= -0.5 Then
                With Cells(i, j).Interior
                .ColorIndex = 6
                .Pattern = xlSolid
                End With
             Else
                With Cells(i, j).Interior
                .ColorIndex = 3
                .Pattern = xlSolid
                End With
            End If
            End If
        Next j
        Next i
        For k = 10 To 39
         For l = 5 To 5
            If Cells(k, l) >= 0 Then
                With Cells(k, l).Interior
                .ColorIndex = 0
                .Pattern = xlSolid
                End With
                Else
             If Cells(k, l) < 0 And Cells(k, l) >= -0.5 Then
                With Cells(k, l).Interior
                .ColorIndex = 6
                .Pattern = xlSolid
                End With
             Else
                With Cells(k, l).Interior
                .ColorIndex = 3
                .Pattern = xlSolid
                End With
            End If
            End If
        Next l
   Next k
End Sub
How to proceed from here.
Thanks
Kiran