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" <
[email protected]> wrote in
message news:
[email protected]...
>
> 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
>
Bookmarks