Sub FooterPPT()
Dim s As Slide
ActivePresentation.SlideMaster.HeadersFooters.DisplayOnTitleSlide = msoFalse
For Each s In ActivePresentation.Slides
'Footer gets visible
If s.CustomLayout.Index <> 1 Then
s.HeadersFooters.Footer.Visible = msoTrue
'Slidenumber gets visible
s.HeadersFooters.SlideNumber.Visible = msoTrue
'Footer gets filled with text
s.HeadersFooters.Footer.Text = "HELLO WORLD"
End If
Next s
End Sub