PowerPointのページ番号をフッターに自動入力するVBAマクロ（改良版）

Sub セクションごとにフッターでページ番号を挿入()
  '--------------------設定する変数ここから-----------------------
  Dim pass_hidden: pass_hidden = True
  '非表示スライドをとばす場合はTRUE、とばさない場合はFALSEにする
   
  Dim pass_top: pass_top = True
  'セクションの先頭スライドをとばす場合はTRUE、とばさない場合はFALSEにする
  '--------------------設定する変数ここまで-----------------------
   
  Dim start 'ページ番号の初期値
  Do
    start = InputBox("開始番号を入力：", "ページ番号の設定")
    If IsNumeric(start) Then  '入力値が数字か確認
      start = Val(start)
      Exit Do
     
    ElseIf Len(start) = 0 Then End
       
    End If
  Loop
   
  With ActiveWindow.Selection
    Dim sec_id 'アクティブなスライドのセクションID
    Dim start_i 'セクションの先頭スライドのSlideIndex
    Dim slide_n 'セクションのスライド数
    sec_id = .SlideRange.sectionIndex
    start_i = ActivePresentation.SectionProperties.FirstSlide(sec_id)
    slide_n = ActivePresentation.SectionProperties.SlidesCount(sec_id)
     
    If pass_top Then
      start_i = start_i + 1
      slide_n = slide_n - 1
    End If
     
    Dim iArray() As Long '変数では長さを指定できないのでReDimを使う
    ReDim iArray(slide_n) As Long
    Dim i 'スライドインデックス
    Dim i2 As Integer: i2 = 0 '配列のインデックス
    For i = start_i To start_i + slide_n - 1
      iArray(i2) = i
      i2 = i2 + 1
    Next i
 
    Dim sld As Slide
    Dim shp As Shape
    For Each sld In ActivePresentation.Slides.Range(iArray)
        If pass_hidden And sld.SlideShowTransition.Hidden = msoTrue Then
          GoTo continue
        End If
      
      sld.HeadersFooters.Footer.Text = Str(start) 'フッターへ入力
      start = start + 1
continue:
    Next sld
  End With
   
End Sub