Sub insert() Presentations("Corporate.ppt").Slides.InsertFromFile _ FileName:="C:\Your.ppt", Index:=5, _ SlideStart:=2, SlideEnd:=8End Sub