automatic blinking in excel

Is it possible to make a cell blink when the sheet is active without having to manually run a macro?

I'm trying to create a (warning as of date) so I don't have to worry about forgetting it when I'm on a pricing sheet.

i.e. if I go to sheet "Prices" I want the "Prices as of 10/30/15" to blink in cell A1, but I don't want to physically run a macro.

Just want it to do it when I click the sheet tab.  

Thanks in advance. . .
elgin229Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Martin LissOlder than dirtCommented:
Sorry but there's no way to do that without code. You could use conditional formatting to make cell's text red, and then change it to black using condition.
byundtMechanical EngineerCommented:
Here is some code to make the cell blink when you activate a worksheet. Some of the code must go in the ThisWorkbook code pane. Other bits should go in a regular module sheet.

I've attached a sample workbook so you can see how it works.

You need to list the worksheets and cell addresses that blink in subs StartBlink and StopBlink. As written, cell A1 will blink in worksheets Master and Prices. No blinking occurs on worksheet Some Other.
'These two Public variable declaration and two subs go in a regular module sheet
Public RunWhen As Double
Public wsBlinkerator As Worksheet

Sub StartBlink()
    Dim cel As Range
    With wsBlinkerator
        Select Case .Name
        Case "Prices", "Master"     'List as many sheet names separated by commas as you like
            Set cel = .Range("A1")  'Address of cell to start blinking on target worksheet
        Case "Some other"           'List as many cases as you like
        Case Else
        End Select
    End With
    
    If Not cel Is Nothing Then
        With cel.Font
            If .ColorIndex = 3 Then ' Red Text
                .ColorIndex = 2 ' White Text
            Else
                .ColorIndex = 3 ' Red Text
            End If
        End With
    End If
    RunWhen = Now + TimeSerial(0, 0, 1)
    Application.OnTime RunWhen, "StartBlink", , True
End Sub

Sub StopBlink()
    Dim cel As Range
    With wsBlinkerator
        Select Case .Name
        Case "Prices", "Master"
            Set cel = .Range("A1")      'Address of cell to stop blinking on old worksheet
        Case "Some other"
        Case Else
        End Select
    End With
    
    If Not cel Is Nothing Then cel.Font.ColorIndex = xlColorIndexAutomatic
    On Error Resume Next
    Application.OnTime RunWhen, "StartBlink", , False   'Stop the blinking
    On Error GoTo 0
End Sub

Open in new window

'Code goes in ThisWorkbook code pane
Private Sub Workbook_Open()
    If ActiveWorkbook.Name = ThisWorkbook.Name Then
        Set wsBlinkerator = ActiveSheet
        StartBlink
    End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ActiveWorkbook.Name = ThisWorkbook.Name Then
        Set wsBlinkerator = ActiveSheet
        StopBlink
    End If
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Set wsBlinkerator = ThisWorkbook.Worksheets(Sh.Name)
    StartBlink
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    Set wsBlinkerator = ThisWorkbook.Worksheets(Sh.Name)
    StopBlink
End Sub

Open in new window

BlinkingCellQ28735207.xlsm

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
elgin229Author Commented:
Excellent solution to my question.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.