Sub Open_Slide()
'
' Macro recorded 9/8/2001 by William T. Smith
'

    Presentations.Add WithWindow:=msoTrue
    ActiveWindow.View.GotoSlide Index:=ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutBlank).SlideIndex
End Sub