Artik,

The user will be adding 25 slides from another PPT file via the Reuse slides options. Then they are supposed to run the following code below that I currently have. It essentially rearranges the slides an deletes on slide. My save code can be modified to use what you think is the best from your code. I do not believe that I need to existing PPT macro file to ever be saved.

Sub RearrangeSlidesToNewLocation()


Dim strName As String


ActivePresentation.Slides(2).MoveTo toPos:=34
ActivePresentation.Slides(2).MoveTo toPos:=34
ActivePresentation.Slides(2).MoveTo toPos:=36
ActivePresentation.Slides(2).MoveTo toPos:=36
ActivePresentation.Slides(2).MoveTo toPos:=38
ActivePresentation.Slides(2).MoveTo toPos:=38
ActivePresentation.Slides(2).MoveTo toPos:=38
ActivePresentation.Slides(2).MoveTo toPos:=38
ActivePresentation.Slides(2).MoveTo toPos:=38
ActivePresentation.Slides(2).MoveTo toPos:=38
ActivePresentation.Slides(2).MoveTo toPos:=38
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=40
ActivePresentation.Slides(2).MoveTo toPos:=42
ActivePresentation.Slides(2).MoveTo toPos:=42
ActivePresentation.Slides(2).MoveTo toPos:=42
ActivePresentation.Slides(2).MoveTo toPos:=42
ActivePresentation.Slides(2).MoveTo toPos:=42






strName = ActivePresentation.Slides(2).Shapes("Title 1").TextFrame.TextRange.Text
ActivePresentation.Slides(2).Delete
ActivePresentation.Slides(1).Select


With Application.ActivePresentation
.SaveCopyAs strName
End With






MsgBox "Your new Category Review has been saved. Please close this file and open the newly saved file. You can then begin your Category Review work."


End Sub