If you cell link check boxes 1-6 to range A1:A6 then setting the range A1:A6 to FALSE will uncheck all tickboxes.

For X = 1 to 6
Range("A" & X).value = FALSE
Next x