Checkbox problem

[dragavs]

my problem is checkboxes didnt tick,

'checkbox for slipsheets    Dim checkboxes As CheckBox    If Range("EU5").Value = "PALETIZED" Then        checkboxes("Check Box 36").Value = xlOn        Else        checkboxes("Check Box 36").Value = xlOff    End If    If Range("EU5").Value = "LOOSE-LOADED" Then        checkboxes("Check Box 71").Value = xlOn        Else        checkboxes("Check Box 71").Value = xlOff    End If    If Range("EU5").Value = "UNITIZED" Then        checkboxes("Check Box 72").Value = xlOn        Else        checkboxes("Check Box 72").Value = xlOff    End If    If Range("EU5").Value = "PLASTIC SLIPSHEETS" Then        checkboxes("Check Box 73").Value = xlOn        checkboxes("Check Box 37").Value = xlOn        Else        checkboxes("Check Box 73").Value = xlOff        checkboxes("Check Box 37").Value = xlOff    End If    If Range("EU5").Value = "FIBER SLIPSHEETS" Then        checkboxes("Check Box 73").Value = xlOn        checkboxes("Check Box 37").Value = xlOn        Else        checkboxes("Check Box 73").Value = xlOff        checkboxes("Check Box 37").Value = xlOff    End If        'next    Range("eu6").Select    Application.CutCopyMode = False    Selection.Copy    Range("eu5").Select    activesheet.Paste    Range("eu6").Select    Selection.Delete Shift:=xlUp

 

[dragavs]

cant edit the post, my code is like this'checkbox for slipsheets Dim checkboxes As CheckBox If Range("EU5").Value = "PALETIZED" Then checkboxes("Check Box 36").Value = xlOn Else checkboxes("Check Box 36").Value = xlOff End If If Range("EU5").Value = "LOOSE-LOADED" Then checkboxes("Check Box 71").Value = xlOn Else checkboxes("Check Box 71").Value = xlOff End If If Range("EU5").Value = "UNITIZED" Then checkboxes("Check Box 72").Value = xlOn Else checkboxes("Check Box 72").Value = xlOff End If If Range("EU5").Value = "PLASTIC SLIPSHEETS" Then checkboxes("Check Box 73").Value = xlOn checkboxes("Check Box 37").Value = xlOn Else checkboxes("Check Box 73").Value = xlOff checkboxes("Check Box 37").Value = xlOff End If If Range("EU5").Value = "FIBER SLIPSHEETS" Then checkboxes("Check Box 73").Value = xlOn checkboxes("Check Box 37").Value = xlOn Else checkboxes("Check Box 73").Value = xlOff checkboxes("Check Box 37").Value = xlOff End If 'next Range("eu6").Select Application.CutCopyMode = False Selection.Copy Range("eu5").Select activesheet.Paste Range("eu6").Select Selection.Delete Shift:=xlUp