Powerpoint VisualBasic Script

Sub master()
    With ActivePresentation
        If .HasTitleMaster Then
            With .TitleMaster.HeadersFooters.DateAndTime
                .Visible = msoTrue
                .Format = ppDateTimedMMMyy
                .UseFormat = msoTrue
            End With
        End If
    End With
End Sub