Visual Basic para Aplicaciones - Recorrer tabla de powerpoint y cambiar color de celda

Public Sub ChequearDatos()

        Dim currentSlide As Slide

        Dim fila As Integer

        Dim celda As Cell

        ' Cogemos la diapositiva

        Set currentSlide = Application.ActiveWindow.View.Slide

        ' Buscamos la tabla (el 1 es porque yo solo tengo una tabla en la diapositiva)

        With currentSlide.Shapes(1).Table

            ' Empezamos en la fila 2, porque la "1" es la cabecera

            For fila = 2 To .Rows.Count

                ' Recorremos todas las celdas de la fila cambiando el color si pone "Cambia"

                For Each celda In .Rows(fila).Cells

                    If InStr(1, celda.Shape.TextFrame.TextRange.Text, "Cambia") > 0 Then

                        celda.Shape.Fill.ForeColor.RGB = RGB(50, 125, 0)

                    End If

                Next celda

            Next fila

        End With

        MsgBox "Fin"

End Sub