hello again
Can anyone tell me if it is possible to trigger some VBA code when a number
entered in a particular cell on a worksheet is less than the number in
another cell?. I dont know if cells have events linked to them such as mouse
down etc

Thanks
Ian

Mantrid

You could use the worksheet_change event like so. Checks a value in A1 and
if below 10 it colours B1 red

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value < 10 Then
Target.Offset(0, 1).Interior.Color = RGB(255, 0, 0)
Else
Target.Offset(0, 1).Interior.ColorIndex = xlNone
End If
End If
End Sub

To install right-click the sheet tab and select 'view code...'

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
web: www.nickhodge.co.uk
blog: www.nickhodge.co.uk/blog/

FREE UK OFFICE USER GROUP MEETING, MS READING, 27th APRIL 2007
www.officeusergroup.co.uk

"mantrid" wrote in message
...
hello again
Can anyone tell me if it is possible to trigger some VBA code when a
number
entered in a particular cell on a worksheet is less than the number in
another cell?. I dont know if cells have events linked to them such as
mouse
down etc

Thanks
Ian

Thanks again Nick
I think that is the kind of think I need. I will have a play and see if I
can get it to do what I need.
Ian


"Nick Hodge" wrote in message
...
Mantrid

You could use the worksheet_change event like so. Checks a value in A1 and
if below 10 it colours B1 red

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value < 10 Then
Target.Offset(0, 1).Interior.Color = RGB(255, 0, 0)
Else
Target.Offset(0, 1).Interior.ColorIndex = xlNone
End If
End If
End Sub

To install right-click the sheet tab and select 'view code...'

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
web: www.nickhodge.co.uk
blog: www.nickhodge.co.uk/blog/

FREE UK OFFICE USER GROUP MEETING, MS READING, 27th APRIL 2007
www.officeusergroup.co.uk

"mantrid" wrote in message
...
hello again
Can anyone tell me if it is possible to trigger some VBA code when a
number
entered in a particular cell on a worksheet is less than the number in
another cell?. I dont know if cells have events linked to them such as
mouse
down etc

Thanks
Ian