How can I add a progress bar in powerpoint that excludes the last slides -

basically want add progress bar powerpoint not cover entire presentation. have additional slides might not need when presenting , therefore want exclude progress bar.

sub addprogressbar()     on error resume next         activepresentation               sheight = .pagesetup.slideheight - 12               n = 0               j = 0               = 1 .slides.count                 if .slides(i).slideshowtransition.hidden j = j + 1               next i:               = 2 .slides.count                 .slides(i).shapes("progressbar").delete                 if .slides(i).slideshowtransition.hidden = msofalse                   set slider = .slides(i).shapes.addshape(msoshaperectangle, 0, sheight, (i - n) * .pagesetup.slidewidth / (.slides.count - j), 12)                   slider                       .fill.forecolor.rgb = activepresentation.slidemaster.colorscheme.colors(ppfill).rgb                       .name = "progressbar"                   end                 else                    n = n + 1                 end if               next i:         end end sub  sub removeprogressbar()     on error resume next         activepresentation               = 22 .slides.count               .slides(i).shapes("progressbar").delete               .slides(i).shapes("pagenumber").delete               next i:         end end sub 

this did far shows unfinished progress bar ad 'final' slide includes progress bar.

replace .slides.count index of last slide want progress bar appear on. make dynamic using inputbox enter value.