Solved: Add-in with custom menu

[TrippyTom]

This is the code for one of the subroutines. Very simple, and I expect I might have to change some of it if it's to become an add-in.
[vba]
Sub twoSectionsDown()
On Error Resume Next

With Application.Presentations("Layouts.ppt")
.Slides(15).Copy
End With
With Application.ActiveWindow
.ViewType = ppViewSlideSorter
.View.Paste
.ViewType = ppViewNormal
End With
End Sub
[/vba]
Note: I was seeing it paste as a picture sometimes, so that's why I force it to go into slide sorter mode before I paste then switch back (it seems to have fixed that problem).