Move Title on every slide

[Raybob]

I am trying to change the top location of the title on every slide in my ppt, but my code is only moving the title on the first slide. I am new to VBA so I am running out of ideas on how to make it work.

Sub RepositionTitle()
Dim sld As Slide
For Each sld In ActivePresentation.Slides
    If sld.Shapes.HasTitle Then
        ActivePresentation.Slides(1).Shapes.Title.Top = 72 * 0.12
    End If
Next sld
End Sub