i did conditional formatting that if a cell value is <=2 change the color to purpel,
then after that did writ a code that makes a Msgbox appears as a wornning followed by another
Msgbox that give the exact addrress of the cell that contain <=2.....

i tried to with this code, but it did not work........
any hints is appreciated.............


Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
'Dim myCheck As Integer

For Each c In Sheet3.Range("E32:E1800").Cells
If c.Interior.ColorIndex <> -4142 Then
    If c.Value <= 2 Then
       c.Interior.ColorIndex = 3
 MsgBox """?C????I ??I ???C? C??I??? ???E ?E? ", vbOKOnly, " Warnning"
 MsgBox c.Address
    End If
End If
Next
End Sub

yours
hesham

I'm short on time but :

Sheet3.Range(.......) doesn't look right. Try Worksheets("Sheet3").Range(..........

And .cells shouldn't be needed.

Alf

OK, Sheet3 is the default object name of worksheets("Sheet 3"), it can be changed to whatever you want from the Properties pane in the VBE. And although .Cells is not necessary, it is a good idea now to start explicitly stating the default value/object of objects as a way of easing the move to VBA.NET when it happens (.NET does not have a default attribute, everything must be specified)

hesham, I think you have your first If condition backwards.


Chris

There are two secrets to success in this world:
1. Never tell everything you know