PPT - VBA Code

[gmooney]

Hi,



How can I confirm that this code will work with all previous versions of PPT?



Sub RearrangeSlidesToNewLocation()



Dim strName As String



ActivePresentation.Slides(3).MoveTo toPos:=36

ActivePresentation.Slides(3).MoveTo toPos:=36

ActivePresentation.Slides(3).MoveTo toPos:=38

ActivePresentation.Slides(3).MoveTo toPos:=38

ActivePresentation.Slides(3).MoveTo toPos:=40

ActivePresentation.Slides(3).MoveTo toPos:=40

ActivePresentation.Slides(3).MoveTo toPos:=40

ActivePresentation.Slides(3).MoveTo toPos:=40

ActivePresentation.Slides(3).MoveTo toPos:=40

ActivePresentation.Slides(3).MoveTo toPos:=40

ActivePresentation.Slides(3).MoveTo toPos:=40

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=42

ActivePresentation.Slides(3).MoveTo toPos:=44

ActivePresentation.Slides(3).MoveTo toPos:=44

ActivePresentation.Slides(3).MoveTo toPos:=44

ActivePresentation.Slides(3).MoveTo toPos:=44

ActivePresentation.Slides(3).MoveTo toPos:=44



strName = ActivePresentation.Slides(3).Shapes("Title 1").TextFrame.TextRange.Text

ActivePresentation.Slides(3).Delete



With Application.ActivePresentation

.SaveCopyAs strName

End With



'



MsgBox "The file has been saved. Please close this file and open the newly save file. You can then begin your Category Review Work."



End Sub