Selecting and deselecting specific boxes - excel

Question

I'm trying to create a catalog containing parts from different brands and machines. As I previously asked, I tried to loop through the catalog to use diferent worksheets and not comprise everything into one, but every useful tip that was kindly given to me was, quite unsuccesfully, applied by me.
The way the code is written is to pull information from a database based on a few selection boxes on a customizing menu, as in the picture attached. The selection boxes are set to change from "selected" to "deselected" from a font when clicked on.
However, the database is going to contain too many machines to search on the list by name, and I'm trying to figure out a way to deselect all of the other boxes when a specific one is selected.
For example, if the selection box for "CATERPILLAR" is selected, I want the macro to automatically deselect all of the other boxes that aren't linked in the database, or in the catalog, every machine that isn't from the brand "Caterpillar" by changing the "empty box" character into the "checked box" character.
The font used was "Wingdings" and the empty box is character 168, while the checked box is 254.
Is there any way I can do that? Maybe if I create another variable other than "LIST", "TEXT" or "NUMBER" to show only the ones under the category "LIST" related? Because "Modelo" and "Marca" are both under "LIST". Been fiddling with this one for a while! Code of the customizing part follows:
Dim CustRow As Long, ProdCol As Long, ProdRow As Long, LastProdRow As Long, LastResultRow As Long
Dim DataType As String
Dim ItemShp As Shape
Sub Customize_Open()
With Sheet1
'limpar grupos menos amostra
For Each ItemShp In .Shapes
On Error Resume Next
If InStr(ItemShp.Name, "Picture") <> Empty Then ItemShp.Delete
If InStr(ItemShp.Name, "ItemGrp") <> Empty Then ItemShp.Delete
On Error GoTo 0
Next ItemShp
On Error Resume Next
.Shapes("SampleGrp").Visible = msoCTrue
.Shapes("SampleGrp").Ungroup
On Error GoTo 0
'colocar em free floating
For Each ItemShp In .Shapes
If InStr(ItemShp.Name, "Sample") > 0 Then
ItemShp.Placement = xlFreeFloating
ItemShp.Visible = msoCTrue
End If
Next ItemShp
.Shapes("CloseCustBtn").Visible = msoCTrue
.Shapes("ResetBtn").Visible = msoCTrue
.Shapes("LabelTemplate").Visible = msoCTrue
.Shapes("OpenCustBtn").Visible = msoFalse
.Range("C:F").EntireColumn.Hidden = False
End With
End Sub
Sub Customize_Close()
With Sheet1
On Error Resume Next
.Shapes("SampleGrp").Placement = xlFreeFloating
.Shapes("SampleGrp").Visible = msoFalse
On Error GoTo 0
.Shapes("CloseCustBtn").Visible = msoFalse
.Shapes("LabelTemplate").Visible = msoFalse
.Shapes("ResetBtn").Visible = msoFalse
.Shapes("OpenCustBtn").Visible = msoCTrue
.Range("C:F").EntireColumn.Hidden = True
End With
End Sub
Sub Customize_Refresh()
LastProdRow = Sheet2.Range("A99999").End(xlUp).Row 'ultima linha
With Sheet1
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
.Range("A8:F999").ClearContents
.Range("D5:F999").Characters.Font.Name = "Calibri"
.Range("10:999").EntireRow.Hidden = False
Sheet2.Range("AA4:AS999").ClearContents 'limpar critérios e resultados
'definir campos de informação
Range("A8").Value = 9
.Range("C8").Value = Chr(117)
.Range("D8").Value = "CAMPOS INFORMAÇÃO"
.Range("D9:D17").Value = Chr(168) 'caixinha desmarcada
.Range("D9:D17").Characters.Font.Name = "Wingdings"
.Range("E9:E17").Value = Sheet2.Range("l3:l11").Value
.Range("9:17").EntireRow.Hidden = True
'definir filtros
.Range("D18").Value = "FILTROS"
CustRow = 19
For ProdCol = 1 To 8
DataType = Sheet2.Cells(2, ProdCol).Value
Select Case DataType
Case Is = "TEXT"
.Range("D" & CustRow).Value = Sheet2.Cells(3, ProdCol).Value 'cabeçalho
Case Is = "LIST"
On Error Resume Next
Sheet2.Names("Criteria").Delete
Sheet2.Names("Extract").Delete
On Error GoTo 0
Sheet2.Range("A3:H" & LastProdRow).AdvancedFilter xlFilterCopy, , CopyToRange:=Sheet2.Cells(3, ProdCol + 14), Unique:=True
LastResultRow = Sheet2.Cells(9999, ProdCol + 14).End(xlUp).Row 'ultima linha de dado unico
If LastResultRow < 4 Then GoTo NoResult
.Range("A" & CustRow).Value = LastResultRow - 3 '# de itens
.Range("B" & CustRow + 1 & ":B" & CustRow + LastResultRow - 3).Value = ProdCol 'coluna peça
.Range("C" & CustRow).Value = Chr(117) 'triangulo pra direita
.Range("D" & CustRow).Value = Sheet2.Cells(3, ProdCol + 14).Value
.Range("A" & CustRow + 1 & ":A" & CustRow + LastResultRow - 3).Value = CustRow + 1 'linha
.Range("D" & CustRow + 1 & ":D" & CustRow + LastResultRow - 3).Value = Chr(254) 'caixinha marcada
.Range("D" & CustRow + 1 & ":D" & CustRow + LastResultRow - 3).Font.Name = "Wingdings"
.Range("E" & CustRow + 1 & ":E" & CustRow + LastResultRow - 3).Value = Sheet2.Range(Sheet2.Cells(4, ProdCol + 14), Sheet2.Cells(LastResultRow, ProdCol + 14)).Value 'trazer resultados
.Range(CustRow + 1 & ":" & CustRow + LastResultRow - 3).EntireRow.Hidden = True
CustRow = CustRow + LastResultRow - 2
Case Is = "NUMBER"
.Range("A" & CustRow).Value = 2
.Range("B" & CustRow + 1 & ":B" & CustRow + 2).Value = ProdCol
.Range("C" & CustRow).Value = Chr(117)
.Range("D" & CustRow).Value = Sheet2.Cells(3, ProdCol).Value
.Range("D" & CustRow + 1).Value = ">="
.Range("D" & CustRow + 2).Value = "<="
.Range(CustRow + 1 & ":" & CustRow + 2).EntireRow.Hidden = True
CustRow = CustRow + 3
NoResult:
End Select
Next ProdCol
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End With
End Sub