Filter Table by Checkboxes

Dear all,

After trying a number of code variations but never getting anywhere, I am turning to you.

Here is an attached file with which I am trying to achieve the following:

Use the Checkboxes to filter the orange table, column 3. 3 Checkboxes entered already, eventually I'd like to expand this to all languages.

I would like to be able to check multiple checkboxes at once and if none are checked, show the whole table.

Thanks kindly for anybody's time!

Possibly...

Option Explicit
Sub Fltr()
    Dim d As Object
    Dim ckbx As Object

    Set d = CreateObject("Scripting.Dictionary")
    With Worksheets("Trial File ")
        For Each ckbx In .OLEObjects
            If TypeName(ckbx.Object) = "CheckBox" Then
                If ckbx.Object.Value = True Then
                    d.Item("*" & ckbx.Name & "*") = Empty
                End If
            End If
        Next ckbx
        If d.Count = 0 Then d.Item("*") = Empty
        .ListObjects(1).Range.AutoFilter Field:=2, Criteria1:=d.keys, Operator:=xlFilterValues
    End With
    d.RemoveAll
End Sub