Hi

I've made with help of different posts the followng code:

Sub FooterPPT()

ActivePresentation.SlideMaster.HeadersFooters.Disp layOnTitleSlide = msoFalse

Dim s As Slide

For Each s In ActivePresentation.Slides
'Footer gets visible

s.HeadersFooters.Footer.Visible = msoTrue
'Slidenumber gets visible

s.HeadersFooters.SlideNumber.Visible = msoTrue
'Footer gets filled with text

s.HeadersFooters.Footer.Text = "HELLO WORLD"

Next s

End Sub

MY PROBLEM
Unfortunately the footer and the slidenumber is still visible on the titleslide. Any help?

THX for your answers.

Greetings IKA