I am still not 100% clear on what you require but if you are wanting to
check the value of each cell in the range A2:A18 and set the formating
in columns B:F in each row based on that value then maybe like this:

Sub Frmt()
Dim cell As Range
For Each cell In Range("A2:A18")
With Range(Cells(cell.Row, 2), Cells(cell.Row, 6))
Select Case cell.Value
Case "Y1"
.Borders(xlEdgeTop).Weight = xlThick
.Interior.ColorIndex = 36
Case "Y"
.Borders(xlEdgeTop).Weight = xlThin
.Interior.ColorIndex = 36
Case "G1"
.Borders(xlEdgeTop).Weight = xlThick
.Interior.ColorIndex = 35
Case "G"
.Borders(xlEdgeTop).Weight = xlThin
.Interior.ColorIndex = 35
End Select
End With
Next cell
End Sub

Regards
Rowan

nuver wrote:
Thanks Rowan
Works exactly as I asked. The problem is I did not ask the question
correctly. The formatting is what I am looking for but the source and
destination are not exactly what I wanted. I am going to try to explain
myself a little better, sorry I did not get it right the first time.
Thanks for the quick response.

If cell A2 meets the criteria I want the formatting to pertain to
B2:F2
If cell A3 meets the criteria I want the formatting to pertain to
B3:F3
If cell A4 meets the criteria I want the formatting to pertain to
B4:F4
If cell A5 meets the criteria I want the formatting to pertain to
B5:F5

and so on....

Thanks again!