Storing the Interior.ColorIndex number in a variable

Dear all,

I have a macro that would change:

• White cell to Red
• Red cell to White
• Any other coloured cell to Red

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
         
Select Case Target.Interior.ColorIndex
    Case Is = xlNone: Target.Interior.ColorIndex = 3                       'if white, then colour red
    Case Else: Select Case Target.Interior.ColorIndex
                    Case Is = 3: Target.Interior.ColorIndex = xlNone       'if red, then colour white
                    Case Else: Target.Interior.ColorIndex = 3                 'if other colours besides red, colour red
        
                End Select
End Select
    
Cancel = True
    
End Sub

However, I would like to store the original colour of the cell, such that on the 1st double click, the cell becomes Red. On the 2nd double click, the cell changes back to the original colour.

Does anybody know how to achieve this? Any ideas will be greatly appreciated. Thanks!

Like so;

Option Explicit
Public OldColor As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    OldColor = Target.Interior.ColorIndex
End Sub


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
         
Select Case Target.Interior.ColorIndex
    Case Is = xlNone
        Target.Interior.ColorIndex = 3                          'if white, then colour red
    Case Else
        Select Case Target.Interior.ColorIndex
            Case 3
                Target.Interior.ColorIndex = OldColor           'if red, then reset colour 
            Case Else
                Target.Interior.ColorIndex = 3                  'if other colours besides red, colour red
        End Select
End Select
    
Cancel = True
    
End Sub

Once you move on to another cell, it won't matter which event you're using, I don't think, they will all lose track of your previous colors unless you store ALL the colors of ALL the cells somewhere else for reference. The SelectionChange at least lets you color a cell red and immediately change it back.