I have this code which seems to only change the first cell.
Code:
Function ChangeLogo(wdDoc)
Dim ocell As Cell
For Each ocell In wdDoc.Range.Cells
With ocell.Shading
If .BackgroundPatternColor = RGB(51, 51, 153) Then
.BackgroundPatternColor = RGB(12, 71, 157)
.ForegroundPatternColor = wdColorWhite
End If
End With
Next
End Function