Private Sub RefreshSubcategoryCheckBox(CheckBox As Object)
Dim rngSubcategoryCol As Excel.Range
Dim rngResult As Excel.Range
Dim shpFrame As Excel.Shape
Set shpFrame = CheckBox.Parent.Shapes(SC_FRM_PREFIX & Mid$(CheckBox.Name, Len(SC_CHK_PREFIX) + 1))
Set rngSubcategoryCol = ThisWorkbook.Worksheets(SC_WKS_DATATABLE_NAME).Columns("G")
Set rngResult = rngSubcategoryCol.Find(shpFrame.TextFrame2.TextRange.Text, LookIn:=xlValues, LookAt:=xlWhole)
CheckBox.Value = Not (rngResult Is Nothing)
End Sub