Private Sub CommandButton1_Click()

Dim i As Long, a As Long, c As Long
Dim LimitVar()

a = Worksheets(1).Cells(Rows.Count, 17).End(xlUp).Row - 1

For i = 1 To a
    If UserForm1.Controls("CheckBox" & i).Value = True Then
        c = c + 1
        aa = UserForm1.Controls("CheckBox" & i).Caption
        ReDim Preserve LimitVar(1 To c)
        LimitVar(c) = aa
    End If
Next i

 ActiveSheet.Range("$A$1:$H$126").AutoFilter Field:=1, Criteria1 _
        :=LimitVar, Operator:=xlFilterValues

End Sub