Multiple Checkboxes On Worksheet

I have a sheet (sheet3) with a various number of checkboxes in specific cells. I create them trough 'paste'(see code at bottom). They are named checkbox'i' (in my example I use just 1 to 3). The problems now start with adjusting the value of a checkbox with specific number. It works with checkbox1.value =true/false, but I can't manage to do it for number 'i'. So how can I call number i'?

for example: I can delete them with .name property. But with the .name I didn't succeed to adjust value


Dim sh As Shape
Dim rng As Range

For Each sh In ActiveSheet.Shapes
If sh.Type = msoOLEControlObject Then
If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.Delete
End If
Next sh
Or for specific numbers.............