I am trying to copy all true or checked boxes on all slides and paste them onto one slide within my presentation. I can't seem to figure it out. Below is the code that I am using. Any help is appreciated.

Sub ckbxCopy()
Dim shp As Shape
Dim sld As Slide
Dim i As Integer
On Error Resume Next
For Each sld In ActivePresentation.Slides
    For i = 1 To 4
        shp = ActivePresentation.Slides("CheckBox" & CStr(i))
        If Err.Number = 0 Then  ' shape exists
           If shp.OLEFormat.Object.Value = True Then
               shp.Copy
               ActivePresentation.Slides(3).Shapes.Paste
           End If
       End If
    Next i
Next sld
End Sub