Private Sub CommandButton1_Click()
Range("A2:C8").ClearContents
xCpt = 0
i = Me.MultiPage1.Pages.Count
For p = 0 To i - 1
For Each xControl In MultiPage1.Pages(p).Controls
If xControl = True Then
Cells(2 + xCpt, 1 + p) = xControl.Caption
xCpt = xCpt + 1
End If
Next xControl
xCpt = 0
Next
End Sub