Dim i As Long
 
  CheckBox1.Tag = 300 ' Filter 1
  CheckBox2.Tag = 350 ' Filter 2
  'CheckBox3.Tag = ...
  ' usw.
 
  For i = 1 To 10 ' Anzahl Checkboxen
    With Me.Controls("CheckBox" & i)
      If .Value = True Then
        MsgBox "Filter " & Val(.Tag)
      End If
    End With
  Next i

Gruss,

Zardoz