Move Title on every slide

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.

Code:

---

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

---

Not tested

Code:

---

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

---

Thank you Paul! Your solution works!