Seeing as you are adamant, I just did and came up with this

http://tinyurl.com/847u7

--
HTH

Bob Phillips

"Carlton Patterson" wrote in message
...
Thanks Bob,

I'll check out google and see if I can find something.

Cheers

Carlton

*** Sent via Developersdex http://www.developersdex.com ***

Thanks Bob,

I'm going to check out the links in Google.

Cheers

P.S.

Is there any reason why I didn't get a notification email letting me
know that you replied to my request?

*** Sent via Developersdex http://www.developersdex.com ***

Bob,

I couldn't really find what I was looking for on the Google link you
submitted. May be I just wasn't explaining myself properly. So, what I
would like is the following.

I would like to apply conditional formatting but the effect
to appear when my condition to be fulfilled should be
either or all of the below mentioned
1) Flashing cell for say 5 secs to highlight that cell
has changed, pretty much like a live stock quote
screen

2) Continuos blinking of the cell

3) Playing a sound when the condition is fulfilled

I hope someone can help me achieve this.

Cheers

Carlton

*** Sent via Developersdex http://www.developersdex.com ***

Carl,

I can't see you getting that with conditional formatting. As far as I am
aware, flashing has to be obtained with VBA, and so you couldn't use a
worksheet function, not even a UDF, which is what CF relies on.

--
HTH

Bob Phillips

"Carlton Patterson" wrote in message
...
Bob,

I couldn't really find what I was looking for on the Google link you
submitted. May be I just wasn't explaining myself properly. So, what I
would like is the following.

I would like to apply conditional formatting but the effect
to appear when my condition to be fulfilled should be
either or all of the below mentioned
1) Flashing cell for say 5 secs to highlight that cell
has changed, pretty much like a live stock quote
screen

2) Continuos blinking of the cell

3) Playing a sound when the condition is fulfilled

I hope someone can help me achieve this.

Cheers

Carlton

*** Sent via Developersdex http://www.developersdex.com ***

So, you don't think you can help me?

Carlton


*** Sent via Developersdex http://www.developersdex.com ***

Well actually I think I can, bit convoluted, as long as the condition will
be met by a cell change.

First, define a new Style (Format / Style / Flash/ Add ) and apply that
style to the cell(s) you want to flash.

then add this code to a standard code module

Option Explicit

Dim nStart As Date

Sub Flash()
Static cTimes As Long
cTimes = cTimes + 1
If cTimes = 10 Then
With ActiveWorkbook.Styles("Flash")
.Font.ColorIndex = xlColorIndexAutomatic
End With
Else
nStart = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash")
If .Font.ColorIndex = 3 Then
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexNone
Else
.Font.ColorIndex = 3
.Interior.ColorIndex = 19
.Interior.Pattern = xlSolid
End If
End With
Application.OnTime nStart, "Flash"
End If
End Sub


and this to the worksheet in wuestion


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("H10")) Is Nothing Then
Flash
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


But don't you dare tell anyone I gave you a flashing text soluition
otherwise I'm coming after you :-)


Bob

"Carlton Patterson" wrote in message
...
So, you don't think you can help me?

Carlton


*** Sent via Developersdex http://www.developersdex.com ***

Correction

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("H10")) Is Nothing Then
cTimes = 0
Flash
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


and

Option Explicit

Dim nStart As Date
Public cTimes As Long

Sub Flash()
cTimes = cTimes + 1
If cTimes = 10 Then
With ActiveWorkbook.Styles("Flash")
.Font.ColorIndex = xlColorIndexAutomatic
End With
Else
nStart = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash")
If .Font.ColorIndex = 3 Then
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexNone
Else
.Font.ColorIndex = 3
.Interior.ColorIndex = 19
.Interior.Pattern = xlSolid
End If
End With
Application.OnTime nStart, "Flash"
End If
End Sub


--
HTH

Bob Phillips

"Bob Phillips" wrote in message
...
Well actually I think I can, bit convoluted, as long as the condition will
be met by a cell change.

First, define a new Style (Format / Style / Flash/ Add ) and apply that
style to the cell(s) you want to flash.

then add this code to a standard code module

Option Explicit

Dim nStart As Date

Sub Flash()
Static cTimes As Long
cTimes = cTimes + 1
If cTimes = 10 Then
With ActiveWorkbook.Styles("Flash")
.Font.ColorIndex = xlColorIndexAutomatic
End With
Else
nStart = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("Flash")
If .Font.ColorIndex = 3 Then
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexNone
Else
.Font.ColorIndex = 3
.Interior.ColorIndex = 19
.Interior.Pattern = xlSolid
End If
End With
Application.OnTime nStart, "Flash"
End If
End Sub


and this to the worksheet in wuestion


Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("H10")) Is Nothing Then
Flash
End If

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


But don't you dare tell anyone I gave you a flashing text soluition
otherwise I'm coming after you :-)


Bob

"Carlton Patterson" wrote in message
...
So, you don't think you can help me?

Carlton


*** Sent via Developersdex http://www.developersdex.com ***