Sub Toggle_Path_and_Filename_In_Footer()
    ''''''''Developer: Brian Reilly
    'This will only put the path on the Slide Master and not on the Title Master
    'You would have to put it specifically on the Title Master if you wanted it 'there.
    Dim strfullname As String
    strfullname = ActivePresentation.FullName

    ''''''This checks to see if the Footer is on or off
    'and switches off or on
    With ActivePresentation.SlideMaster.HeadersFooters
        If .Footer.Visible = False Then
            With .Footer
                .Text = strfullname
                .Visible = msoTrue
            End With
        Else
            With .Footer
                .Text = ""
                .Visible = msoFalse
            End With
        End If
    End With
    'Don't forget the TitleMaster
    If ActivePresentation.HasTitleMaster Then
        With ActivePresentation.TitleMaster.HeadersFooters
            If .Footer.Visible = False Then
                With .Footer
                    .Text = strfullname
                    .Visible = msoTrue
                End With
            Else
                With .Footer
                    .Text = ""
                    .Visible = msoFalse
                End With
            End If
        End With
    End If
End Sub