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

[Paul_Hossler]

Not tested



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

[Raybob]

Thank you Paul! Your solution works!