error frustration

[olorin]

Ok all you Xperts out there;
Those of you that know, will know what I am trying to do from the following script.....

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("B4")
If Target.Count > 500 Then Exit Sub
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Target.Count <= 500 Then
Range("A6:D6").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Range("B4").Select
End If
End Sub

As I am VERY new to Xcel I would appreciate any help or suggestions to enlighten me in my quest to get my learning curve back on an upward trend.
Also, I feel that I am speaking for the Silent Majority here, when I say how much we appreciate the time given, and tips divulged, by all of you who post here regularly with your eXpertise.
Thanx

 

[Norie]

olorin

Could you actually explain, in words, what you are trying to achieve?

 

[olorin]

I would like the cells "A6 to D6" to change colour if the number in B4 drops below 500
Thanx for your time

 

[Norie]

Could you not use Format>Conditional Formatting... for this?

 

[olorin]

I suppose I could if i knew what you meant... ) but I'll look it up in the help files and try and work it out....though any advice would be gratefully recieved
thanx again

 

[Todd Bardoni]

Select your range, go to Format/Conditional formatting and I think the rest will be self explanatory.

Post back if your need additional help.

 

[olorin]

Brilliant !!!
Like everything.... it's SIMPLE when you know how
Thank you both for your advice