如何隐藏指定的幻灯片

想通过VBA，在第一张PPT上面，放着一些checkbox，当勾选checkbox时，对应的幻灯片就会隐藏，请问程序应该怎么写呢？Thanks.

我现在的代码如下，但删除某一张后，下一张就会跳位置了，请问应该怎样修改？谢谢。

Private Sub CommandButton1_Click()
If CheckBox1.Value = False Then
ActivePresentation.Slides(2).Delete
End If

If CheckBox2.Value = False Then
ActivePresentation.Slides(3).Delete
End If

If CheckBox3.Value = False Then
ActivePresentation.Slides(4).Delete
End If

If CheckBox4.Value = False Then
ActivePresentation.Slides(5).Delete
End If

If CheckBox5.Value = False Then
ActivePresentation.Slides(6).Delete
End If

If CheckBox6.Value = False Then
ActivePresentation.Slides(7).Delete
End If

If CheckBox7.Value = False Then
ActivePresentation.Slides(8).Delete
End If




End Sub