Display total # of pages for handouts

I'm trying to print handouts (with 6 slides per page) that will include a footer that displays the total number of handout pages. So, for example, if there are 14 slides, the handouts would show that there are 3 pages.

Using this code works for displaying the total number of pages for the entire presentation:

Code:

---

With ActivePresentation.Slides
    AddOne = IIf((.Count Mod 6) = 0, 0, IIf((.Count Mod 6) < 5, 1, 0))
    TotalPages = (.Count \ 6) + AddOne
End With

---

However, I was wondering if anyone knows a way to handle print ranges. So if I select a group of something like 8 slides to print, is there a way that I can get it to display 2 as the total number of pages?

Any help would be greatly appreciated.