.
If I correctly understand your goal ... and albeit the below is for Excel .. hopefully it can transfer somehow to PowerPoint ?
I created a table from A1:E6 called TABLE1.
Then paste this macro into the worksheet module :
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Table1 As Range
Dim KeyCells As Range
If Not Intersect(Target, Range("A2:E6")) Is Nothing Then
With Table1
If Target.Cells.Interior.Color = vbWhite Then
Target.Cells.Interior.Color = vbGreen
Target.Cells.Font.Color = vbWhite
ElseIf Target.Cells.Interior.Color = vbGreen Then
Target.Cells.Interior.Color = vbWhite
Target.Cells.Font.Color = vbBlack
End If
End With
Else
Exit Sub
End If
End Sub