Sub InvertFilters()
Dim rng_cell As Range
    For Each rng_cell In Range("myActualFilter")
        rng_cell.Value = Not rng_cell.Value
    Next rng_cell
    Range("myCheckBoxAll").Value = _
             Application.WorksheetFunction.And(Range("myActualFilter").Value)
End Sub