Gmooney, please use [CODE] tags when quoting your code (use # button).
I made an obvious mistake in the previous post. I was talking about SaveAs, but I wrote SaveCopyAs in the code. I'm sorry.

You can also write your code this way: 
Sub RearrangeSlidesToNewLocation()
    Dim i           As Long
    Dim varrPos     As Variant


    varrPos = Array(34, 34, _
                    36, 36, _
                    38, 38, 38, 38, 38, 38, 38, _
                    40, 40, 40, 40, 40, 40, 40, 40, 40, _
                    42, 42, 42, 42, 42)


    With ActivePresentation
        For i = 0 To UBound(varrPos)
            .Slides(2).MoveTo toPos:=varrPos(i)
        Next i


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


        .SaveAs GetDesktopPath & strName & ".pptx"
    End With


    MsgBox "Your new Category Review has been saved." & vbLf & _
           "You can start work.", vbInformation
End Sub
plus GetDesktopPath function.

Artik