Posted to microsoft.public.excel.programming
|
|
Flashing Cells
Thankyou Norman.
My mistake Jim.
Robin Hammond
www.enhanceddatasystems.com
"Norman Jones" wrote in message
...
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" wrote 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
|