Private Sub setzen_Click() 
  Dim oCtrl As Control 
  Dim sIdx As String
 
  For Each oCtrl In Form1.Controls 
    If TypeOf oCtrl Is CheckBox Then
      sIdx = Right$(oCtrl.Name, 2)
      If Not IsNumeric(Left$(sIdx, 1)) Then sIdx = Mid$(sIdx, 2)
      If Val(sIdx) >= 1 And Val(sIdx) <= 28 Then  
        oCtrl.value = 1 
      End If
    End If 
  Next 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de