Окрашивание активной ячейки с задержкой

[estenha]

Добрый день!
Интересующий меня код я нашел:

Public OldCell As Range
Private Sub Workbook_Open(): Set OldCell = ActiveCell: End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    OldCell.Interior.ColorIndex = xlNone: Target.Interior.ColorIndex = 7: Set OldCell = Target
End Sub

http://programmersforum.ru/showpost....73&postcount=7
Активная ячейка окрашивается в определенный цвет.
Хочется, чтобы активная ячейка окрашивалась не сразу, а через какое-то время, т.е. нажал курсор вниз, переместились на ячейку вниз и она окрасилась, например, через три секунды.

p.s. На самом деле хотелось бы менять цвет шрифта, но, как минимум, подходит и этот код - вот только задержка нужна.

[estenha]

Сделал:

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal Milliseconds As LongPtr)

Public OldCell As Range

Private Sub Workbook_Open(): Set OldCell = ActiveCell: End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    OldCell.Interior.ColorIndex = xlNone: Sleep 1000: Target.Interior.ColorIndex = 7: Set OldCell = Target
End Sub

Взял отсюда: https://www.myonlinetraininghub.com/...leep-or-a-loop

Но неудобно - на время задержки "замораживается" курсор, т.е., если, например, не нужно ждать, пока окрасится ячейка и нажать стрелку курсора, то ячейка не сменится, пока работает Sleep.

Вот бы от этого избавиться. Может, кто поможет?

[SAS888]

Можно без API функций:

Public OldCell As Range
Private Sub Workbook_Open(): Set OldCell = ActiveCell: End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    Dim i As Long
    OldCell.Interior.ColorIndex = xlNone
    For i = 1 To 30000: DoEvents: Next
    ActiveCell.Interior.ColorIndex = 7
    Set OldCell = ActiveCell
End Sub

Код должен располагаться в модуле "ЭтаКнига".
Задержка окраски определяется пределом цикла (30000). Подберите требуемое значение.
Пример во вложении.

[estenha]

То, что нужно! Спасибо!