You might modify this to suit
'Private Sub Worksheet_Activate()
'If [n1] - Date < 4 Then
'Beep
'Flasher
'End If
'End Sub
'Dim dTime As Date
'''''''''''''''''''''''''''''''
''Will make range of cells, or single cell change colors _
' at 2 second intervals
'
''Written by OzGrid.com
''''''''''''''''''''''''''''''''
'If [n1] - Date < 4 Then ColorChange
'dTime = Now
'Application.OnTime dTime + TimeValue("00:00:01"), "ColorChange"
'iCount = iCount + 1
'Range("b2").Interior.ColorIndex = Choose(iCount, 3, 36, 50, 7, 34)
' If iCount = 5 Then
' Count = 0
' Application.OnTime dTime + TimeValue("00:00:02"), "ColorChange", ,
False
' End If
'End Sub
"****al" wrote in message
...
I have data filed like: -
Bill no., Bill Date, Party Name, Item, Qty
I want to have data on party name with outstanding of over
30 days from system date & also want to use a different
Colour to cell attention to outstanding of over 60 days.

And can I Blink that cell which has fulfill the condition.

pls. help me.
****al