grazie ma non mi funziona...

ho provato a fare una cosa del genere

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
ma mi funzionano le prime due checkbox, mentre se imposto i=3 mi funzionano le restanti, coma mai?