Is it possible to run a vba code for a set amount of time?

[Xalova]

For example i have a code that will select a cell on the startup of the workbook. i want the user to see which cell is currently activated by highlighting it for 5 seconds in a different color. Is that possible? And if yes, how?

 

[LazyBug]

To your workbook code module:

Public Sub Mess()
    MsgBox "Your time is out..."
    ActiveWorkbook.Sheets("Sheet1").Range("B2").Interior.ColorIndex = xlColorIndexNone
End Sub

To thisworkbook module:

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:05"), "Mess"
    With ActiveWorkbook.Sheets("Sheet1").Range("B2")
        .Interior.ColorIndex = 6
        .Select
    End With
End Sub

 

[Xalova]

To your workbook code module:

Public Sub Mess()
    MsgBox "Your time is out..."
    ActiveWorkbook.Sheets("Sheet1").Range("B2").Interior.ColorIndex = xlColorIndexNone
End Sub

To thisworkbook module:

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:05"), "Mess"
    With ActiveWorkbook.Sheets("Sheet1").Range("B2")
        .Interior.ColorIndex = 6
        .Select
    End With
End Sub

and thats exactly what i needed, thank you