Changing Formatting on a cell for a limited time

Hi, I'm not sure how this could be done though i'm pretty sure its going to require some VBA instead of conditional formatting.

I would like cell B2 to have background colour red for 10 seconds after cell A1 is edited. So every time A1 is edited B2 will change colour for 10 seconds and then back to original formating.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("B2") Then Target.Interior.ColorIndex = 3
End Sub

something similar to this i think is needed.

Many Thanks

Ashley