codice:
Dim obj As OLEObject     
          Dim i As Integer 
          i = 1   
       
          For Each obj In Sheets("Foglio1").OLEObjects  
                If obj.Name = "chk" & i Then
                     obj.Object.Value = True   
                     i = i + 1 
                End If
          Next obj