macro for checkboxes please fix my code

Hi,

I did some search and couldnt get the help I needed.

The following code attempt is in a userform with one print button, one cancel button and six checkboxes refering to which sheets that are needed to print.

Please help, THANKS

private sub cancelprint_click()
unload me
end

private sub printdeal_click()

application screenupdating = False

if CheckBox1.value = True then sheets("dealsheet").printout copies:= 1
if CheckBox2.value = True then sheets("trade").printout copies:= 2
if CheckBox3.value = True then sheets("payoff").printout copies:= 1
if CheckBox4.value = True then sheets("stips").printout copies:= 1
if CheckBox5.value = True then sheets("businessmgr").printout copies:= 1
if CheckBox6.value = True then sheets("cc").printout copies:= 1

application screenupdating = False

end sub