This sort of thing
Code:
Private Sub CheckBox1_Click()
' this would hide or show slides 2, 3 & 3
With ActivePresentation.Slides.Range(Array(2, 3, 4)).SlideShowTransition
If Me.CheckBox1.Value = True Then
.Hidden = False
Else
.Hidden = True
End If
End With
End Sub