Help with reffering to a different procedure

[fkneg1]

Hi,

I am creating a PowerPoint presentation from data in an Access database using VBA with MS Office 2013. So far it is working well but there is a change I want to make that will enable me to edit the Custom Slideshows once the presentation has been produced. I figured I could do this by making the part of my code that makes the Custom Slide shows a separate procedure and call that from my original code to make the slideshows and then have a command button on the presentation to call the same procedure to remake the custom slide shows once extra slides have been editted.
The problem I am having is making my code for the slideshows into a separate procedure which I though should be easy! The code I am using is this:

Sub CustomShows()
Dim rslides(1 To 260) As Long
Dim rslidesint As Integer
With ppPres.Slides
        For rslidesint = intCount + 1 To 260
            rslides(rslidesint) = .Item(rslidesint).SlideID
        Next rslidesint
End With
     With PowerPoint.ActivePresentation.SlideShowSettings
With ppPres.SlideShowSettings
      .RangeType = ppShowNamedSlideShow
      .NamedSlideShows.Add "MainSlides", rslides
      .SlideShowName = "MainSlides"
End With
Dim qslides(1 To 260) As Long
Dim qslidesint As Integer
With ppPres.Slides
    For qslidesint = 1 To intCount
        qslides(qslidesint) = .Item(qslidesint).SlideID
        Next qslidesint
    End With
With ppPres.SlideShowSettings
      .LoopUntilStopped = msoTrue
      .RangeType = ppShowNamedSlideShow
      .NamedSlideShows.Add "ScrollingNotices", qslides
      .SlideShowName = "ScrollingNotices"
End With

End Sub

At the moment my code seems to call the procedure but it does not create the custom shows and does not show any errors so I don't know where it is going wrong! Any help appreciated.
Thanks