Monir,
In most cases one would need to combine Tushar's generic condition with another using AND(). For example, in your case, the condition for flashing might look like:
Formula Is: =AND(A1="Wrong",MOD(SECOND(NOW()),2)=1)
As for where to locate it: the code for RepeatOneSec() and EndProcess() can be in a standard module. Then in your workbook's code module, you simply call RepeatOneSec, i.e.
Code:
Private Sub Workbook_Open()
RepeatOneSec
End Sub
Were it me, I would probably give the user a means of shutting this off. For example, create a toggle button, in my case, naming the button -
toggFlashingText and then on the worksheet's code page, I have the code for the toggle button...
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> toggFlashingText_Click()
<SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Me.toggFlashingText <SPAN style="color:#00007F">Then</SPAN>
EndTimerProcess
Me.toggFlashingText.Caption = "Enable Flashing Text"
<SPAN style="color:#00007F">Else</SPAN>
RepeatOneSec
Me.toggFlashingText.Caption = "Disable Flashing Text"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
Using this approach, one needs to modify the workbook's Open event handler a bit. If you want the text flashing enabled at startup, you need to make sure that the toggle button's status reflects this, so your open method might look like:
<font face=Courier New>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_Open()
<SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Me.Sheets(1).toggFlashingText <SPAN style="color:#00007F">Then</SPAN>
Me.Sheets(1).toggFlashingText = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">Else</SPAN>
RepeatOneSec
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
Also, judging by the behavior I'm getting from Excel, if you do not turn off the timer event and try to close the workbook, the OnTime event remains linked to the procedure in the workbook and wants to reopen the workbook so it can run the processes set for OnTime. So I added the following to turn it off:
<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_BeforeClose(Cancel <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>)
EndTimerProcess
End <SPAN style="color:#00007F">Sub</SPAN>
</FONT>
HTH