M
Mia
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!
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!