I can loop thru all existing slides and update the footer text but if i add new slides it does not use this footer text and i have to run the code again.

    For Each sld In ActivePresentation.Slides
        If sld.HeadersFooters.Footer.Visible = msoTrue Then
            sld.HeadersFooters.Footer.Text = "My footer text"
        End If
    Next
Using the Header and Footer dialog allows you to Apply to All which both updates the existing slides and applies to any new slides with the footer placeholder. Is there an equivalent of this "Apply to All" action in VBA or, alternatively, a way to display the Header and Footer dialog?

Thanks