Thanks for replying.
I have looked through the code from the example you gave, I can only see that it works on one checkbox as below.
If Me.chkCharity = True Then
strFilter = AppendFilter("([Charity] = TRUE)", strFilter)
End If
My knowledge of VBA is very limited, which is how I have...