Powerpoint VBA question

All,

have some VBA code in powerpoint that I am using to add details to a table that has been created on a slide.

I am wanting to set the fill colour of a cell in that table and I had thought it was working but now every time I run through it doesn't error but it doesn't fill the cell?

I am not sure what is going on so any help here would be appreciated.

VB Code:

If oShp.HasTextFrame Then
                Set txtRng = oShp.TextFrame.TextRange
                Set foundText = txtRng.Find(FindWhat:="GREEN", MatchCase:=True, WholeWords:=True)
                Do While Not (foundText Is Nothing)
                    With foundText
                        
                        
                        ActivePresentation.Slides(1).Shapes(8).Table _
                        .Cell(valTab, 9).Shape.TextFrame.TextRange.Text = "G"
                            
                        ActivePresentation.Slides(1).Shapes(8).Table _
                        .Cell(valTab, 9).Shape.TextFrame.TextRange.Font.Bold = True
                        
                        valGreen = valGreen + 1
                        
                    End With
                    
                ' This just isn't working and I don't know why?
                ActivePresentation.Slides(1).Shapes(8).Table _
                .Cell(valTab, 8).Shape.Fill.ForeColor.RGB = RGB(0, 100, 0)
                
                Exit Do
                Loop
            End If