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"...