You post is kind of vague. Is Utskriftsfunktion a Userform? And the
checkboxes and canc are on the userform? What is canc? Is it a combobox?
Please describe what you're this code is suppose to do vs. just saying it
doesn't work.
--
Cheers,
Ryan


"Mia" wrote:

Hi,

I don't get my checkbox to work. Do anyone know whats wrong with my code?

Sub Utskrift()

Application.ScreenUpdating = False

Utskriftsfunktion.Show

If canc = 4 Then Exit Sub

If canc = 5 Then

If CheckBox3 = True Then Call fakturapdf

If CheckBox4 = True Then Call specpdf

If CheckBox2 = True Then Call specprint

If CheckBox1 = True Then Call fakturaprint

Sheets("Indata").Select

Application.ScreenUpdating = True

End if

End Sub

I'll be wery grateful if someone can help me!


--
Best regards
Mia