ikr Wrote:
"Desert Piranha"
<Desert.Piranha.20yu2m_1136135402.5753@excelforu m-nospam.com wrote in
message
news:Desert.Piranha.20yu2m_1136135402.5753@excelfo rum-nospam.com...

barry24uk Wrote:
I think the question speaks for itself.
Hi Barry,
Try this, cange to suit your needs
'----------
Public Sub Blink()
Dim appTime
With Sheets(1).Range("A1").Interior
If .ColorIndex = 4 Then
ColorIndex = 3
Else
ColorIndex = 4
End If
End With
appTime = Now() + TimeValue("00:00:01")
Application.OnTime appTime, "Blink"
End Sub
'----------

dot missing from the beginning of the ColorIndex = 3 and ColorIndex =
4
lines, to link with the With statement, viz:
..ColorIndex = 3
....
..ColorIndex = 4Hi ikr,
Don't know, but in my post there are dots in front of them.
Maybe whatever you are using to view with, is not picking them up.
I should have put tags around the code.


--
Desert Piranha


------------------------------------------------------------------------
Desert Piranha's Profile: http://www.excelforum.com/member.php...o&userid=28934
View this thread: http://www.excelforum.com/showthread...hreadid=497233