Coloring a range depending on a cell value

[Jim333]

Hi everybody.

I have created the follwoing code to color a specific range when th
value of cell A1 =1 and uncolor it when it is more than 1.

The problem I faced is that when the code is applied >> the whole shee
becomes un-editable except cell A1, which contains the value.
what I want is to make the whole sheet active and editable afte
applying the follwoing code.


Code
-------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = 1 And Target.Address <> "$A$1" Then
Range("B2:F2").Select
With Selection.Interior
.ColorIndex = 6
End With
ElseIf Range("A1").Value > 1 And Target.Address <> "$A$1" Then
Range("B2:F2").Select
With Selection.Interior
.ColorIndex = 0
End With
End If
End Su

 

[Jim333]

Thank you for your help .. but this not what I am looking for >>

I want to edit my code if you can do it for me.

Thank you so much

 

[Tom Ogilvy]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = 1 And Target.Address <> "$A$1" Then
Range("B2:F2").Interior.ColorIndex = 6
ElseIf Range("A1").Value > 1 And Target.Address <> "$A$1" Then
Range("B2:F2").Interior.ColorIndex = xlNone
End If
End Sub

 

[Jim333]

Thank you sooooooooo much Tom

That is exactly what I want ..

Thanks alot.

Bye,