Thanks for your reply Foxguy..
I want to write a macro for this thing and i also wrote one and it is working fine.
Another thing i would like to know is how i can run this macro for all sheets.
I want to run this thing for all sheets.
What i have wrote yet is.

Sub Update_Row_Colors()

Dim LRow As Integer
Dim LCell As String
Dim LColorCells As String
'Start at row 7
LRow = 1

'Update row colors for the first 2000 rows
While LRow < 200
LCell = "A" & LRow
'Color will changed in columns A to K
LColorCells = "A" & LRow & ":" & "W" & LRow

Select Case Range(LCell).Value

'Set row color to light blue
Case "Loc"
Range(LColorCells).Interior.ColorIndex = 34
Range(LColorCells).Interior.Pattern = xlSolid
Range(LColorCells).Font.Bold = True
Range(LColorCells).Font.Name = "Arial Narrow"
Range(LColorCells).Font.Size = 10.5
Range(LColorCells).EntireColumn.AutoFit

'Default all other rows to no color
Case Else
Rows(LRow & ":" & LRow).Select
Range(LColorCells).Interior.ColorIndex = xlNone
Range(LColorCells).Font.Name = "Arial Narrow"
Range(LColorCells).Font.Size = 10.5

End Select

LRow = LRow + 1
Wend

Range("A1").Select

End Sub