Make a cell flash twice

[j844929]

Hi,

Can anyone help with the following:

I have code that goes to a specified sheet, and selects the row containing today's date in column A. The cell directly to the left is then selected.

How do I make this cell flash red twice, to indicate where the cursor is?



Any help would be much appreciated.

Thanks.
T

 

[BrianB]

Sub test()
    i = ActiveCell.Interior.ColorIndex
    ActiveCell.Interior.ColorIndex = 6
    Application.Wait Now + TimeValue("00:00:01")
    ActiveCell.Interior.ColorIndex = i
    Application.Wait Now + TimeValue("00:00:01")
    ActiveCell.Interior.ColorIndex = 6
    Application.Wait Now + TimeValue("00:00:01")
    ActiveCell.Interior.ColorIndex = i
End Sub

 

[AgentSmith]

Not sure how you'd do that exactly, but you can turn it red for a second:

Option Explicit

Private strCell As String
Private mlngColour As Long
Private mlngColourIndex As Long

Sub FlashCell()
    Dim i As Integer
    
    strCell = ActiveCell.Address
    
    TurnCellRed
    Application.OnTime Now + 1 / (24# * 60 * 60), "ResetCellColour"
End Sub

Sub TurnCellRed()
    With Range(strCell).Interior
        mlngColour = .Color
        mlngColourIndex = .ColorIndex
        .Color = RGB(255, 0, 0)
    End With
End Sub


Sub ResetCellColour()
    With Range(strCell).Interior
        If mlngColourIndex = xlNone Then
            .ColorIndex = xlNone
        Else
            .Color = mlngColour
        End If
    End With
End Sub

Clearly you can repeat the flashing, but OnTime can only deal in whole numbers of seconds, so flashing twice will take at least 3 seconds: 1 on, 1 off, 1 on.

 

[j844929]

Thanks guys. Both solutions work very nicely!