Afvikling af macro i PowerPoint

Har denne macro i en PowerPoint.
Hvordan får jeg den til at kører i loop indtil jeg lukker filen eller evt. en macro til at starte og stoppe den.
Så jeg har mulighed for at vise/skjule forskellige slides?
Hvordan får jeg den til at springe de slides over, som på tidspunktet for kørslen, er skjult?

Alternativt, kan jeg evt. lave macro i Excel og opdatere slides den vej?

Sub Update()
'  MsgBox "Slide Update start: " & Now
    ActivePresentation.Slides(2).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(3).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(4).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(4).Shapes("Object 3").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(5).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(5).Shapes("Object 3").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(6).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(7).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(7).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(8).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(9).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(10).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(10).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(11).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(12).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(13).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(14).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(15).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(15).Shapes("Object 2").LinkFormat.Update
    Call WaitFor(1)
    ActivePresentation.Slides(16).Shapes("Object 1").LinkFormat.Update
    Call WaitFor(1)
'  MsgBox "Slide Update end: " & Now
End Sub