AutoFiltering Data COlumns

[p45cal]

try something along these lines (untested):

If (Worksheets(const_ParametersSheetName).InitialChkBox.Value = True) Then vSubTypes = "Initial,"
If (Worksheets(const_ParametersSheetName).InitialCloseOutChkBox.Value = True) Then vSubTypes = vSubTypes & "Initial Close-Out,"
'put your code to remove last comma here.
vSubTypes = Split(vSubTypes, ",")
Rng.AutoFilter Field:=8, Criteria1:=vSubTypes, Operator:=xlFilterValues