software

I think the question speaks for itself.

You might try an OnTime Event procedure to alternately change a cell's
background color back and forth. But it would not blink very fast.

See cpearson.com/excel/ontime.htm for help on OnTime.

_____________________________________
Gary's Studentquot;barry24ukquot; wrote:

gt; I think the question speaks for itself.


barry24uk Wrote:
gt; 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(quot;A1quot;).Interior
If .ColorIndex = 4 Then
.ColorIndex = 3
Else
.ColorIndex = 4
End If
End With
appTime = Now() TimeValue(quot;00:00:01quot;)
Application.OnTime appTime, quot;Blinkquot;
End Sub
'------------
Desert Piranha------------------------------------------------------------------------
Desert Piranha's Profile: www.excelforum.com/member.php...oamp;userid=28934
View this thread: www.excelforum.com/showthread...hreadid=497233quot;Desert Piranhaquot;
lt;Desert.Piranha.20yu2m_1136135402.5753@excelforu m-nospam.comgt; wrote in
message newsesert.Piranha.20yu2m_1136135402.5753@excelfo rum-nospam.com...
gt;
gt; barry24uk Wrote:
gt;gt; I think the question speaks for itself.
gt; Hi Barry,
gt; Try this, cange to suit your needs
gt; '----------
gt; Public Sub Blink()
gt; Dim appTime
gt; With Sheets(1).Range(quot;A1quot;).Interior
gt; If .ColorIndex = 4 Then
gt; ColorIndex = 3
gt; Else
gt; ColorIndex = 4
gt; End If
gt; End With
gt; appTime = Now() TimeValue(quot;00:00:01quot;)
gt; Application.OnTime appTime, quot;Blinkquot;
gt; End Sub
gt; '----------

dot missing from the beginning of the ColorIndex = 3 and ColorIndex = 4
lines, to link with the With statement, viz:
..ColorIndex = 3
....
..ColorIndex = 4

ikr Wrote:
gt; quot;Desert Piranhaquot;
gt; lt;Desert.Piranha.20yu2m_1136135402.5753@excelforu m-nospam.comgt; wrote in
gt; message
gt; newsesert.Piranha.20yu2m_1136135402.5753@excelfo rum-nospam.com...
gt; gt;
gt; gt; barry24uk Wrote:
gt; gt;gt; I think the question speaks for itself.
gt; gt; Hi Barry,
gt; gt; Try this, cange to suit your needs
gt; gt; '----------
gt; gt; Public Sub Blink()
gt; gt; Dim appTime
gt; gt; With Sheets(1).Range(quot;A1quot;).Interior
gt; gt; If .ColorIndex = 4 Then
gt; gt; ColorIndex = 3
gt; gt; Else
gt; gt; ColorIndex = 4
gt; gt; End If
gt; gt; End With
gt; gt; appTime = Now() TimeValue(quot;00:00:01quot;)
gt; gt; Application.OnTime appTime, quot;Blinkquot;
gt; gt; End Sub
gt; gt; '----------
gt;
gt; dot missing from the beginning of the ColorIndex = 3 and ColorIndex =
gt; 4
gt; lines, to link with the With statement, viz:
gt; ..ColorIndex = 3
gt; ....
gt; ..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: www.excelforum.com/member.php...oamp;userid=28934
View this thread: www.excelforum.com/showthread...hreadid=497233quot;Desert Piranhaquot;
lt;Desert.Piranha.20z94a_1136154901.8541@excelforu m-nospam.comgt; wrote in
message newsesert.Piranha.20z94a_1136154901.8541@excelfo rum-nospam.com...
gt;
gt; ikr Wrote:
gt;gt; quot;Desert Piranhaquot;
gt;gt; lt;Desert.Piranha.20yu2m_1136135402.5753@excelforu m-nospam.comgt; wrote in
gt;gt; message
gt;gt; newsesert.Piranha.20yu2m_1136135402.5753@excelfo rum-nospam.com...
gt;gt; gt;
gt;gt; gt; barry24uk Wrote:
gt;gt; gt;gt; I think the question speaks for itself.
gt;gt; gt; Hi Barry,
gt;gt; gt; Try this, cange to suit your needs
gt;gt; gt; '----------
gt;gt; gt; Public Sub Blink()
gt;gt; gt; Dim appTime
gt;gt; gt; With Sheets(1).Range(quot;A1quot;).Interior
gt;gt; gt; If .ColorIndex = 4 Then
gt;gt; gt; ColorIndex = 3
gt;gt; gt; Else
gt;gt; gt; ColorIndex = 4
gt;gt; gt; End If
gt;gt; gt; End With
gt;gt; gt; appTime = Now() TimeValue(quot;00:00:01quot;)
gt;gt; gt; Application.OnTime appTime, quot;Blinkquot;
gt;gt; gt; End Sub
gt;gt; gt; '----------
gt;gt;
gt;gt; dot missing from the beginning of the ColorIndex = 3 and ColorIndex =
gt;gt; 4
gt;gt; lines, to link with the With statement, viz:
gt;gt; ..ColorIndex = 3
gt;gt; ....
gt;gt; ..ColorIndex = 4Hi ikr,
gt; Don't know, but in my post there are dots in front of them.
gt; Maybe whatever you are using to view with, is not picking them up.
gt; I should have put tags around the code.
gt;
I'm using Outlook Express
Sorry. I should have told you that the cell I want to flash between the 2
colours already contains an IF formula
=IF(S28lt;=0,quot; quot;,IF(N28gt;=P9,quot; quot;,IF(N28lt;P9,quot;Replace Your Clonequot;)))
There is also a Conditional format linked to the cell as well.quot;Desert Piranhaquot; wrote:

gt;
gt; barry24uk Wrote:
gt; gt; I think the question speaks for itself.
gt; Hi Barry,
gt; Try this, cange to suit your needs
gt; '----------
gt; Public Sub Blink()
gt; Dim appTime
gt; With Sheets(1).Range(quot;A1quot;).Interior
gt; If .ColorIndex = 4 Then
gt; .ColorIndex = 3
gt; Else
gt; .ColorIndex = 4
gt; End If
gt; End With
gt; appTime = Now() TimeValue(quot;00:00:01quot;)
gt; Application.OnTime appTime, quot;Blinkquot;
gt; End Sub
gt; '----------
gt;
gt;
gt; --
gt; Desert Piranha
gt;
gt;
gt; ------------------------------------------------------------------------
gt; Desert Piranha's Profile: www.excelforum.com/member.php...oamp;userid=28934
gt; View this thread: www.excelforum.com/showthread...hreadid=497233
gt;
gt;