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