Hi, James
Try the code below and see if it works.
Sub Macro1()
Dim sld As Slide
Dim shp As Shape
Dim SourceTable As Table
Dim Found As Boolean
Dim GP As String
Dim OP As String
Found = False
With ActivePresentation
For Each sld In .Slides
For Each shp In sld.Shapes
If shp.HasTable Then
If shp.Table.Cell(1, 1).Shape.TextFrame.TextRange.Text = "GOOD PROGRESS" _
And shp.Table.Cell(1, 2).Shape.TextFrame.TextRange.Text = "OUTSTANDING PROGRESS" Then
Set SourceTable = shp.Table
Found = True
Exit For
End If
End If
Next shp
If Found Then Exit For
Next sld
End With
With SourceTable
GP = .Cell(2, 1).Shape.TextFrame.TextRange.Text
OP = .Cell(2, 2).Shape.TextFrame.TextRange.Text
End With
With ActivePresentation.SlideMaster
For Each shp In .Shapes
If shp.HasTable Then
shp.Table.Cell(2, 1).Shape.TextFrame.TextRange.Text = GP
shp.Table.Cell(2, 2).Shape.TextFrame.TextRange.Text = OP
Exit For
End If
Next shp
End With
End Sub