Comparing Value

Try this code to see if this works as per your requirement.

Sub comparevalues()
Dim rng As Range, cell As Range, rng1 As Range, cell1 As Range
Dim lr As Long, lc As Integer
lr = Cells(Rows.Count, 1).End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
Set rng1 = Range(Cells(1, 5), Cells(1, lc))
Application.ScreenUpdating = False
For Each cell1 In rng1
    Set rng = Range(Cells(2, cell1.Column), Cells(lr, cell1.Column))
    For Each cell In rng
    If cell <> "" Then
        If cell > cell.Offset(0, -4) * 0.05 Then
            cell.Interior.ColorIndex = 3
        End If
        If cell < cell.Offset(0, -4) * 0.05 Then
            cell.Interior.ColorIndex = 6
        End If
    End If
    Next cell
Next cell1
Application.ScreenUpdating = True
End Sub

Though the code will run successfully on any sheet irrespective of sheet name but if you want to run the code on each sheet automatically in one go, try this code......

Sub comparevalues()
Dim ws As Worksheet
Dim rng As Range, cell As Range, rng1 As Range, cell1 As Range
Dim lr As Long, lc As Integer
For Each ws In Worksheets
ws.Activate
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row
lc = ws.Cells(1, Columns.Count).End(xlToLeft).Column
Set rng1 = ws.Range(Cells(1, 5), Cells(1, lc))
Application.ScreenUpdating = False
For Each cell1 In rng1
    Set rng = ws.Range(Cells(2, cell1.Column), Cells(lr, cell1.Column))
    For Each cell In rng
    If cell <> "" Then
        If cell > cell.Offset(0, -4) * 0.05 Then
            cell.Interior.ColorIndex = 3
        End If
        If cell < cell.Offset(0, -4) * 0.05 Then
            cell.Interior.ColorIndex = 6
        End If
    End If
    Next cell
Next cell1
Next ws
Application.ScreenUpdating = True
End Sub

You are always great sktneer..Thanks..Its perfect.After populating color coding i want to refresh the data's in all the sheet.So shall i use the clear or refresh function here along with this code..

Thanks,
Lakshmanan

Glad to help you. Thanks for the feedback.
I have no idea about refreshing the data in the sheet. You can try control+alt+F9 which forces a complete refresh.
If that takes care of your question, please mark your thread as solved.
Moreover you may also click on * (star) to Add Reputation to those who have put their time and efforts to help you in this forum. This is another way to say thanks to them.