John,

Thanks!

Here is my final code that works.  I had problems with the arrayIds.  If the
slides were moved from the original insertion order the slide show had the
wrong slides.  It would use the slideindex order instead of the slideid order.

Any thoughts or improvements from anyone would be appreciated.

CG

Sub CopySlidesAndSlideShows()
   
   Dim orgPres As Presentation
   Dim newPres As Presentation
   Dim arrayid As Variant
   Dim newarrayid As Variant
   Set orgPres = ActivePresentation
   Set newPres = Presentations.Add '("C:\Presentation.ppt")
   Dim cc As Variant
   
   For Each s In orgPres.Slides
        s.Copy
        newPres.Slides.Paste
   Next
   For Each ss In orgPres.SlideShowSettings.NamedSlideShows
       
       arrayid = ss.SlideIDs
       ReDim newarrayid(1 To UBound(arrayid))
       
       For i = 1 To UBound(arrayid)
           newarrayid(i) =
orgPres.Slides.FindBySlideID(arrayid(i)).SlideIndex
           newarrayid(i) = newPres.Slides(newarrayid(i)).SlideID
       Next i
       
       newPres.SlideShowSettings.NamedSlideShows.Add ss.Name, arrayid
       
   Next
End Sub