Change colour of a custem shape on all slides

[arnelgp]

Sub changedcolor()
Dim hshp As Shape
Dim osld As Slide
Dim j As Long
Dim r As Long
Dim g As Long
Dim b As Long
Set osld = ActivePresentation.Slides(1)
For Each hshp In osld.Shapes
    With hshp
        If .Name Like "Google*" Then
            .Fill.ForeColor.RGB = RGB(50, 50, 50)
            .Fill.Solid
        End If
    End With
Next
End Sub