Hi Norman,

And the code to turn this off would be ??

Dave
Don't say the trash can. :)

Norman Jones Wrote:
Hi Jim,

Inserting a clearly intended With...End With clause, Robin's code ran
without problem for me:

Public Sub Blink()
Dim rngCell As Range
Dim rngRegion As Range
Dim appTime As Double
Set rngRegion = Sheets(1).Range("A1:d10")
For Each rngCell In rngRegion
With rngCell
.Interior.ColorIndex = IIf(.Interior.ColorIndex = 2, 3, 2)
End With
Next rngCell
appTime = Now() + TimeValue("00:00:01")
Application.OnTime appTime, "Blink"
End Sub

---
Regards,
Norman


"Jim333" wrot
in
message ...

Thank you for ur reply,

the code didn't work with me,,

Can u please test it and attach a file contains the tested code,

thanks,


--
Jim333

------------------------------------------------------------------------
Jim333's Profile:
http://www.excelforum.com/member.php...fo&userid=5186
View this thread
http://www.excelforum.com/showthread...hreadid=401858


--
Piranh

-----------------------------------------------------------------------
Piranha's Profile: http://www.excelforum.com/member.php...fo&userid=2043
View this thread: http://www.excelforum.com/showthread.php?threadid=40185